2TODLEY  KNOX  LIBRARY  ^ 
IfAVAL  POSTGRADUATE  SCHOOL  '^^^ 
MONTEREY,  CALIFORNIA  93943-8008 


NAVAL  POSTGRADUATE  SCHOOL 

Monterey,  California 


THESIS 

numerical  FIELD  MODEL  SIMULATION 

OF  FULL  SCALE  FIRE  TESTS 

IN  A  CLOSED  VESSEL 

by 

Gerald  F.  Nies 

December  1986 

The 

Co- 

;sis 
Adv. 

Advisor                 K.  T.  Yang 
isor                  M.  D.  Kelleher 

Approved  for  public  release;  distribution  is  unlimited. 


■■•   ^*N  ""''■"   *^^-  *^'''' 


\(LJ 


UNCLASSIFIED 
.ECURirv  CLASSiPlCATlON  Of  Thi5   PaG£ 


REPORT  DOCUMENTATION  PAGE 


la    REPORT  SECURITY  CLASSIFICATION 

UNCLASSIFIED 


lb    RESTRICTIVE    MARKINGS 


2a    SECURITY  CLASSIFICATION  AUTHORITY 


Iti    DECLASSIFICATION /DOWNGRADING   SCHEDULE 


3     DISTRIBUTION /AVAILABILITY  OF   REPORT 

Approved   for  public   release; 
distribution   unlimited. 


J    PERFORMING  ORGANIZATION  REPORT  NUM8£R(S) 


5.  MONITORING  ORGANIZATION  REPORT  NUM8£R(S) 


Id.  NAME  OF  PERFORMING  ORGANIZATION 

,  Naval    Postgraduate    School 


6b    OFFICE  SYMBOL 
(If  applicible) 

69 


7a.  NAME  OF  MONITORING  ORGANIZATION 

Naval    Postgraduate    School 


<.  ADDRESS  (Gfy,  Sfafe,  tnd  ZIPCod*) 

Monterey,  California   93943-5000 


7b.  ADDRESS  (Gfy,  Sfafe,  ind  ZIP  Code) 

Monterey,    California      93943-5000 


a.  NAME  OF  FUNDING/SPONSORING 
ORGANIZATION 


8b    OFFICE  SYMBOL 
(If  tpplicibh) 


9    PROCUREMENT  INSTRUMENT  IDENTIFICATION   NUMBER 


:.  ADDRESS  (Gfy,  State,  and  ZIP  Code) 


10    SOURCE   OF   FUNDING   NUMBERS 


PROGRAM 
ELEMENT  NO 


PROJECT 
NO 


TAS< 
NO 


WORK   UNIT 
ACCESSION   NO 


TITLE  (Include  Security  Clauification) 

NUMERICAL   FIELD    MODEL    SIMULATION    OF    FULL    SCALE   FIRE    TESTS    IN   A   CLOSED   VESSEL 

PERSONAL  AUTHOR(S) 

Nies,    Gerald  F. 


a    TYPE  OF  REPORT 
Master's    Thesis 


13b    TIME  COVERED 
.    FROM TO 


14    DATE  OF  REPORT   (Year,  Month.  Day) 
1985    December 


15    PAGE   COUNT 
199 


SUPPLEMENTARY   NOTATION 


COSATI  COOES 


FIELD 


GROUP 


SUB-GROUP 


18    SUBJECT  TERMS  {Continue  on  revene  if  necessary  and  identify  by  block  number) 
Field  Model,    Fire    Simulation,    Fire   Modeling,    Numerical 
Fire   Model,    Fires    in   Closed  Vessels,    Enclosed   Fires 


■    ABSTRACT  {Continue  on  reverse  if  necessary  and  identify  by  block  number) 


A  numerical  finite  difference 
fires  in  closed  vessels, 
the  Fire  1  Test  Facility 
first  step  a  rectangular 
geometry  in  the  computer 
geometry  was  developed. 
and  velocity  fields  from 


field  model  was  developed  to  simulate  full  scale 

In  particular  the  model  was  developed  to  simulate  tests  in 

at  the  Naval  Research  Laboratory  in  Washington,  D.C.   As  a 

3-dimensional  geometry  was  used  to  approximate  the  actual 

model.   Then  a  model  with  the  actual  spherical/cylindrical 

The  computer  code  produced  pressure,  temperature,  density, 

-  ^     -^li,----^—^    given  heat  input  data  for  the  fires.   The  most  important 

reature  of  the  model  was  tnat  it  accounts  for  the  pressure  buildup  due  to  the  fire  in 
a  pressure  vessel  such  as  Fire  1  or  any  other  closed  vessel  such  as  a  submarine. 
Other  features  include  surface  radiation  exchange  and  heat  losses  through  the  wall. 
Model  results  were  validated  with  experimental  data  from  Fire  1.  The  envisioned  use 
of  the  model  is  m  simulating  fires  in  Fire  1  and  eventually  in  submarines. 


DiSTRiBUTlON/AVAILABlLlTY  OF  ABSTRACT 
El  UNCLASSIFIED/UNLIMITED       D  SAME  AS  RPT 


DOTIC   USERS 


NAME  OF  RESPONSIBLE  INDIVIDUAL 

.T.    Yang 


21    ABSTRACT  SECURITY  CLASSIFICATION 

UNCLASSIFIED 


22b  TELEPHONE  (/nc/ude  Area  Code) 
(219)     239-5884 


22c    OFFICE    SYMBOL 


3!  FORM  1473,84 MA« 


83  APR  edition  may  be  used  until  e«hauited 
All  other  editions  aie  obsolete 


SECURITY  CLASSIFICATION  OF  thiS  PAGE 
UNCLASSIFIED 


Approved  for  public  release;  distribution  is  unlimited. 


Numerical  Field  Model  Simulation 

of  Full  Scale  Fire  Tests 

in  a  Closed  Vessel 


by 


Gerald  F.  Nies 

Lieutenant,  United  States  Nav7 

B.S.  in  Marine  Engineering,  United  States  Naval  Academy,  1980 


Submitted  in  partial  fulfillment  of  the 
requirements  for  the  degrees  of 


MASTER  OF  SCIENCE  IN  MECHANICAL  ENGINEERING 

and 
MECHANICAL  ENGINEER 


from  the 


NAVAL  POSTGRADUATE  SCHOOL 

December  1986 


ABSTRACT 
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Test  Facility  at  the  Naval  Research  Laboratory  in  Washington,  D.C.  As  a  first  step  a 
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I.  INTRODUCTION 

A.      THE  SIGNIFICANCE  OF  FIRE  PROBLEMS  IN  THE  NAVY 

For  many  years  fires  have  been  a  significant  problem  in  the  Navy.  iMany  lives 
have  been  lost  and  numerous  injuries  have  resulted  from  these  fires.  The  necessary- 
repairs  to  the  ships  adversely  affect  naval  readiness  and  also  cost  millions  of  dollars. 
Table  1  [Ref  1:  p. 65]  shows  the  magnitude  of  the  problem  by  hsting  average  yearly 
losses  and  citing  several  specific  fires. 


TABLE 

I 

PERSONNEL  CASUALTIES  AND  LOST  OPER^^TING  DAYS  FROM 

FIRES,  1973  -  1980 

Calendar 
Year  "                Injuries              Fatahties 

Operating 
Days  Lost 

1980                        44 
1979                        33 
1978                         7 
1977                        10 
1976                        12 
1975                        73 
1974                        30 
1973                        57 

0 
2 
0 
0 
0 
12 
1 
9 

3 

75 
81 
287 
146 
165 
973 
197 
211 

284 

Avg.         •              35 

Major  Aircraft  Carrier  Flight  Deck  Fires: 

USS  Enterprise                        14  JAN  1969 

S56  Mil 

28  Fatalities 

USS  Nimitz                            26  MAY  1981 

575  Mil 

13  Fatalities 

*   Up  to  June  1980 

- 

The  computer  model  developed  in  this  thesis  provides  a  tool  to  simulate  fires  in  closed 
compartments  such  as  those  found  in  submarines.  Hopefully  this  model  and  its 
successors  can  be  used  to  reduce  the  damage  caused  by  shipboard  fires. 


B.  NAVY  FIRE  RESEARCH 

In  an  effort  to  reduce  the  loss  of  life  and  damage  caused  by  fires  the  Naw  has 
undertaken  for  many  years  programs  to  reduce  the  likelyhood  of  fires  and  to  more 
effectively  combat  fires  once  they  start.  Many  facilities  are  used  to  evaluate  fire 
damage  from  various  scenarios.  These  scenarios  generally  involve  the  evaluation  of 
new  fire  extinguishing  equipment  or  fire  resistant  materials  such  as  prospective  hull 
insulation.  The  Fire  I  Test  Facility  at  the  Naval  Research  Laboratory'  is  one  such 
facility  which  is  specifically  designed  to  simulate  fires  aboard  a  submarine  where  the 
pressure  buildup  due  to  the  fire  is  not  vented.  The  computer  code  developed  here  is 
specifically  designed  to  simulate  fires  in  the  Fire  1  Test  Facility. 

Other  related  Naval  and  Coast  Guard  research  involves  the  accurate  evauation  of 
the  fire  hazard  aboard  ships  in  the  fleet.  The  most  spectacular  and  expensive  tests  of 
this  variety  are  full  scale  instrumented  fire  tests  aboard  recently  decommissioned  ships. 
Projects  are  currently  in  the  planning  stages  to  conduct  such  tests  aboard  a  submarine 
and  a  surface  ship.  The  computer  model  presented  here  is  a  first  step  toward  modeling 
the  complex  phenomena  of  a  fire  in  these  full  scale  conditions. 

C.  PURPOSE  AND  FEATURES  OF  THE  NUMERICAL  MODEL 

One  might  ask,  "What  is  the  usefulness  of  a  computer  model  for  Fire  1?"  Several 
answers  immediately  come  to  mind.  First,  the  actual  test  runs  in  the  facility  are 
expensive.  They  are  on  the  order  of  S75.000  for  an  involved  test.  Obviously,  a 
computer  model  that  could  eliminate  the  need  for  even  a  few  tests  would  be  useful. 
Test  cost  and  physical  limitations  of  the  facility  also  limit  the  number  of  acttial  fire 
scenarios  that  can  be  tested.  The  computer  model  could  be  used  to  evaluate  many 
scenarios  that  would  not  normally  be  looked  at.  In  this  way  the  computer  code  could 
be  used  to  screen  scenarios.  Then  actual  tests  would  be  run  on  those  situations  that 
show  up  as  the  most  dangerous  on  the  computer.  Also,  the  program  might  show  areas 
inside  the  test  vessel  where  additional  instrumentation  is  required.  As  a  simple 
example.  Fire  I  now  has  available  portable  thermocouple  racks.  Test  cases  on  the 
computer  would  indicate  the  most  favorable  placement  of  these  portable  racks  to 
record  the  data  desired.  Finally,  since  the  geometrv'  simulated  by  the  computer  is  much 
more  easily  changed  than  the  geometn."  of  the  physical  model,  once  the  computer  code 
is  validated  by  Fire  I  it  could  be  used  to  simulate  other  fires  in  facilities  or  ships  which 
have  much  difierent  dimensions  than  Fire  I. 
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The  actual  numerical  model  used  here  to  simulate  the  fire  is  referred  to  as  a  field 
model.  In  a  field  model  the  space  is  divided  up  into  a  large  number  of  small  cells  and 
all  the  pertinent  values  for  temperature,  pressure,  density,  species  concentration,  and 
velocities  are  calculated.  Interaction  effects  such  as  radiation,  and  turbulence,  and 
others  are  easily  integrated  in  a  field  model  but  the  overall  results  are  verv'  dependent 
on  how  accurate  the  particular  radiation  or  turbulence  model  is.  Thus  improvement  of 
the  field  model  accuracy  depends  on  research  in  many  separate  areas.  Field  models  in 
general  require  a  large  amount  of  computer  resources  because  of  the  large  number  of 
cells  required  for  satisfactorily  accurate  results.  As  a  consequence  of  this  complexity 
and  the  limitations  of  present  computers,  real  time  simulations  with  a  field  model  are 
not  feasible. 

The  three-dimensional  model  developed  here  is  a  direct  extension  of  the  two- 
dimensional  model  used  in  the  study  of  aircraft  fires  at  the  University  of  Notre  Dame 
[Refs.  2,3:  pp.  107-llS,  pp. 177-184].  There  are  a  number  of  other  Field  models 
available.  In  [Ref  4:  pp.  55-77]  a  three-dimensional  model  of  buoyant  convection  and 
aerosol  dynamics  using  the  time  dependent  inviscid  Boussinesq  equations  is  presented. 
A  simple  combustion  model  is  included  in  the  field  model  described  in  [Ref  5:  pp. 
107-111]  and  in  [Ref  6:  pp.  115-124]  another  three  dimensional  model  of  a  fire  in 
enclosures  is  developed. 

This  Fire  I  numerical  model  has  a  number  of  important  features.  The  model  is 
three  dimensional.  Primarily  as  a  consequence,  primitive  variables  have  been  used. 
The  choice  of  primitive  variables  rather  than  the  stream  function,  vorticity,  and 
velocity  potential  approach  also  makes  the  application  of  boundary-  conditions  much 
easier.  The  major  problem  with  using  primitive  variables  is  the  necessity  and  difficulty 
of  determining  the  local  pressure  field.  This  procedure  will  be  described  in  detail  in  this 
report.  Another  feature  critical  to  this  model  is  a  global  pressure  correction  that  allows 
for  the  pressure  buildup  in  the  closed  system  that  is  being  simulated.  A  radiation 
model  is  also  included  but  it  only  deals  with  surface  to  surface  radiation  effects.  Gas 
radiation  effects  are  not  accounted  for.  A  simple  conduction  model  is  provided  to 
simulate  the  heat  loss  through  the  vessel  walls.  The  overall  numerical  scheme  employs 
the  finite  difference  method. 
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D.       THE  FIRE  1  TEST  FACILITY 

Since  the  Fire  I  test  facility  is  the  specific  subject  of  this  computer  model  and 
since  the  experimental  data  from  this  facility  is  the  basis  of  the  model  validation,  a 
short  description  of  Fire  I  is  provided  here.  A  detailed  report  about  the  facility  is 
provided  by  Alexander,  et.al.  in  [Ref  7].  and  the  facts  presented  here  are  excerpts  from 
that  reference.  Figure  1.1  [Ref  7:  p.  2]  provides  a  blueprint  drawing  showing  the 
overall  dimensions  of  Fire  1.  The  tank  shell  consists  of  a  cylindrical  central  body 
27.4  ft  long  with  hemispherical  endcaps.  The  radius  of  the  endcaps  and  the  cyclinder  is 
9.6  ft  giving  a  total  volume  of  11640  ff^  or  324  m-^  .  The  test  vessel  is  made  of  ASTM 
285  Grade  C  steel  3/8  in  thick.  The  design  pressure  is  89.7  psia  at  450°F  with  a 
hydrostatic  test  pressure  of  127.2  psia.  Rupture  discs  are  installed  to  prevent 
pressurization  above  89. 7  psia.   [Ref  7:  p.  4] 

Within  the  basic  shell  modifications  have  been  made  to  provide  instrumentation 
for  fire  testing  and  to  simulate  the  shipboard  environment.  Figure  1.2  [Ref  7:  p.  32] 
provides  a  side  view  drawing  which  shows  the  location  of  the  thermocouples  and 
radiometers.  A  total  of  20  thermocouples  are  arranged  on  two  arrays  at  the  north  and 
south  ends  of  the  tank.  The  figure  shows  their  exact  locations.  The  thermocouples 
consist  of  chrome-alumel  wire  0.2  mm  in  diameter  with  ceramic  insulation  enclosed  in 
Type  304  stainless  steel  jackets  1  mm  in  diameter.  These  thermocouples  are  provided 
with  steel  radiation  shields.  In  addition  to  the  20  permanent  thermocouples,  in  many 
tests  additional  temporan.'  thermocouples  are  placed  in  locations  of  interest.  Both  wide 
angle  (135°)  and  narrow  angle  (75°)  radiometers  are  provided  inside  the  tank  near  the 
permanent  thermocouple  arrays.  In  addition  one  wide  angle  radiometer  array  is 
installed  near  the  center  of  the  tank  on  the  lower  deck.  Pressure  readings  are  taken 
from  two  transducers,  one  taps  into  the  north  end  of  the  tank  and  the  other  into  the 
south  end.  The  test  chamber  is  also  equipped  to  measure  smoke  obscuration  levels, 
gas  composition,  and  the  progress  of  the  fire  with  video  cameras.  Figure  1.2  shows 
several  features  which  are  similar  to  a  submarine  interior.  First  are  the  frame  bays 
which  can  provide  a  ducting  or  chimney  effect  for  fires  located  near  them.  Second  are 
the  decks,  one  about  3  ft  above  the  low  point  of  the  tank  and  one  at  the  tank  mid- 
plane.  These  decks  may  be  either  grates  or  solid  and  may  be  fully  or  partially  removed 
as  desired  in  a  particular  test.  A  system  of  interior  fans  is  provided  so  that  the  etlects 
of  forced  circulation  on  a  fire  in  the  closed  vessel,  may  also  be  evaluated.  Finally,  the 
facilty  is  equiped  with  a  nitrogen  pressurization  system  to  extinguish  the  fire.    It  raises 
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Figure  1.1     Blueprint:  Drav.ing  Li''the  I  irc  I  'lest  X'e^-'-el 


the  pressure   to   2  atm  in    10  sec   and  extinguishes   the   fire   by  lowering   the  partial 
pressure  of  the  oxygen  to  less  than  10.5%.   [Ref  7:  pp.  14-33] 

E.       OUTLINE 

The  balance  o[  this  thesis  describes  the  details  of  the  numerical  model  and  its 
validation.  In  Chapter  II  the  governing  equations  are  described  and  non- 
dimensionalized.  Then  the  specific  finite  difference  equations  for  the  rectangular 
geometn/'  are  derived.  This  is  followed  by  an  explanation  of  the  pressure  correction, 
radiation  model,  conduction  model,  and  the  application  of  boundary-  conditions. 
Chapter  II  ends  with  an  outUne  of  the  solution  procedure.  In  Chapter  III  the  results 
of  the  validation  of  the  model  with  the  experimental  data  are  presented.  The 
conclusions  and  recommendations  for  future  work  are  given  in  Chapter  IV.  The 
derivations  for  the  finite  dilference  equations  for  the  actual  cylindrical  spherical 
geometn.'  are  presented  in  the  Appendices.  Future  work  will  contain  the  validation 
results.   The  other  appendices  contain  the  code  listings  and  several  miscellaneous  items. 
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Figure  1.2     Side  View  of  Fire  I  with  Sensor  Locations. 
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II.  FORMULATION  AND  DESCRIPTION  OF  THE  NUMERICAL  MODEL 

A.       GOVERNING  EQUATIONS 

In  this  section  the  governing  differential  equations  for  the  computer  model  are 
presented  and  then  simplified  by  deleting  terms  not  significant  in  this  particular 
application.  Patankar  in  [Ref  8:  pp.  11-17]  provides  the  general  form  of  the  equations, 
while  White  in  [Ref  9:  pp.  671-674]  provides  the  equations  for  the  rectangular 
geometry.  The  general  form  of  the  equations,  their  simplication,  and  the  development 
of  the  finite  difference  equations  follows  the  form  of  Doria  in  reference  [Ref  10:  pp. 
1-44]. 

In  the  development  of  the  equations,  an  assumption  of  no  chemical  reactions  is 
made.  The  fire  is  modeled  by  volumetric  heat  input  only  and  the  chemical  composition 
changes  due  to  combustion  reactions  are  ignored.  In  addition,  laminar  transport 
properties  are  taken  to  be  constant,  while  density  is  allowed  to  vary  in  accordance  with 
the  ideal  gas  law.  The  justification  is  that  the  flow  and  temperature  fields  are 
dominated  by  turbulent  transport. 

1.  Equations  in  General  Form 

In   general   form   not    specific   to   any   geometry,   the   governing   dilTerential 
equations  are: 
Continuity  Equation: 

dp 

■     —   +    V»(py)    =   0  (egn   2.1) 

dt 

Energy  Equation: 


d  DP 

— (ph)    +    V»(pvh)    =   V«(kVT)    +    —   +    (Dt^   +    St^  (  eqn   2.2) 

^t  ~  Dt  ^  ^^ 


Momentum  Equations: 

d  dF 

— (pv^)    +    V.(pvvi)    =   V.(^iVvi)    -    —   +    B^^ 


( eqn   2.3) 
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d  <3p 

— (PV2)  +    V«(pvV2)    =   V«(^Vv2)    -   - —   +    B  (eqn   2.4) 

ot  ^  0x2  2 

d  dF 

T-(  pVq )  +    V«(pvvn)    =    V»(^iVv^)    -   +    B^  (eqn   2.4) 


Equations  of  State: 

P  =  p  RT  (eqn  2.6) 


h  =  Cp  (T-Tj^)  (eqn  2.7; 


The  energy  equation  above  assumes  the  use  of  Fourier's  Law  while  the  momentum 
equations  assume  the  use  of  Stokes'  Hypothesis. 

In  the  energy  equation  DP,Dt  is  the  pressure  work  term,  (pj  is  the  dissipation, 
and  Sj^  is  the  heat  source  term.  The  low  speed  flows  considered  in  this  model  make  the 
pressure  work  and  dissipation  terms  small.  As  a  result  they  are  assumed  negligible 
from  this  point  and  eliminated  from  the  equations.  Since  the  elTects  of  gas  radiation 
are  not  treated  here,  the  heat  source  term  is  non-zero  only  in  the  region  of  the  fire.  In 
the  momentum  equations,  the  subscripts  I.  2,  and  3  indicate  the  three  orthogonal 
directions  of  the  particular  coordinate  system  selected.  B  represents  a  body  force.  The 
energy  and  momentum  equations  both  contain  terms  of  the  form  V'(rV(p)  where  F  is 
the  dilTusion  coefficient  and  (p  is  a  dependent  variable.  In  the  laminar  case,  the  values 
of  r  are  properties  of  the  fluid.  However  in  this  numerical  model  where  the  turbulent 
case  must  be  considered,  the  value  of  T  is  replaced  by  a  F  rr  or  an  elTective  value  of 
the  diffusion  property  which  increases  the  original  laminar  value  of  F  by  a  turbulent 
contribution  [Ref  10:  p.  5].  Thus  the  conductivity  k  becomes  k^^j-  and  \i  becomes 
Meff-  "^R  i'^  ^he  equation  for  the  enthalpy  is  a  reference  ten;iperature. 
2.  Governing  Equations  in  Cartesian  Coordinates 

From    the    general    forms    of  the    difierential    equations    just    presented    the 
equations    for    the   Cartesian    or   rectangular   geometiw   may    be    developed.     In    the 


17 


rectangular  geometr>'  the  three  coordinate  directions  are  x,  y,  and  z  and  the 
corresponding  velocities  are  u,  v,  and  w. 

Now  that  the  coordinate  system  has  been  selected  several  items  may  be 
specified.  The  divergence  and  gradient  in  rectangular  coordinates  are  given  m 
Equations  2.8  and  2.9.  respectively. 

^u        dv        d\j 
V  •  V  =  —   +   —   +   —  (  eqn   2.8) 

■"        dK        dy        dz 

(3Ta        5Ta       ^Ta 
VT  =  — i    +   — j    +   — k  .  (eqn   2.9) 

dx  dy  ^z 

AAA 

where  i.  j,  and  k  are  unit  vectors  in  the  \.  y,  and  z  directions,  in  the  momentum 
equation  the  only  body  force  B  of  significance  is  gravity.  It  acts  in  the  negative  z 
direction.    As  a  result: 


B^  =  0       B^,  =  0       B^  =  -pg  (eqn  2.10) 

For  convenience  the  static  equiUbrium  equation 

0  =  -^PEq^z   -   pg^g  (eqn  2.11) 

is  subtracted  from  the  z-momentum  equation.  In  equation  2.11,  ?£^  is  the  equilibrium 
pressure  and  p^  is  the  equilibrium  density.  The  resulting  modified  z-momentum 
equation  shows  the  effects  of  the  buoyancy  more  clearly.  To  further  simplify  the 
equations  the  following  definitions  for  the  heat  flux  q  and  the  shear  stresses  T  are 
substituted: 

q_^  =  -kg|y5T,5x  (eqn  2.12) 


q^,  =  -kgjy5T;5y  (eqn  2.13) 
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^7    = 


■k,f^5T;^z 


(eqn2.14) 


XX 


2  ^g|y{5u,5x) 


(eqn  2.15) 


V  "  HefT^^^'^^  ^  ^^^^^>') 


(eqn  2.16) 


^xz  "  ^eff^^^^"^^  ^  t5u.  ^z) 


{eqn  2.17) 


V  = 


A  ^ 


txy 


(eqn  2. IS) 


^■Y  =  2\i^^{dy;dy) 


(eqn  2.19) 


Vz  "  Mefr(^w;^y  +  ^v/^z) 


(eqn  2.20) 


zx 


^xz 


(eqn  2.21) 


^zv 


=    T 


vz 


(eqn  2.22) 


^zz=  2^l^^{^^v;^z) 


(eqn  2.23; 
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Incorporating    these    constitutive    equations    governing    equations     in    rectangular 
coordinates  become: 
Continuity  Equation: 

^p        a  d  d 

-f-   +   — (pu)    +   — (pv)    +   — (pw)    =0  (eqn   2.24) 

^t        OK  oy  cz 


Energy  Equation: 

d                   d  d                     d 

— (ph)    +   — (puh)  +   — (pvh)    +   — (pwh) 

ct                 ox  oy                   cz 

^q           rq  dq 
21    _    L  _    — ^    +s, 

^x           dy  cz            ^ 
Momentum  Equations: 


d  d  ^  d  d 

— -(pu)    +   7-(Pu^)    +   — (puv)    +   — (puw) 

ct  ox  cy  cz 

■    ^!xx  +  i!xy  +  i!xz  .  ^ 

<5x  ^y  dz  dx 


d                  d  d  .       ^          d 

— (pv)    +  — (pvu)  +  — (pv    )    ^   ^(pvw)    = 

^t                 ^x  cy                   cz 

^x            ^y  dz          dy 


8  3  8  S  7 

— (pw)    +    --(pwu)    +   T-(pwv)    +    ^(pw^)    = 

ct  8x  8y  cz 


( eqn   2.  25) 


( eqn   2.26) 


( eqn   2.  27) 


^x  ^y  ^z  8z  ^P        PEq)g 


( eqn   2. 28) 


3.  Comment  on  the  Equations 

These  equations  developed  for  rectangular  coordinates  are  the  basis  of  the 
numerical   model.     They   are   para.boUc    \i\   time    and    elliptic   in    space.     The    initial 
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conditions  for  the  dependent  variables  must  be  supplied  for  even-'  point  in  the 
calculation  domain  and  boundary-  conditions  for  the  dependent  variables  must  be 
supplied  for  ever}-  time  instant.   When  these  conditions  are  met  a  solution  is  possible. 

Similar  but  more  complex  equations  for  spherical  and  cylmdrical  coordmate 
systems  are  presented  in  Appendix  A. 

B.       NON-DIMENSIONAL  EQUATIONS 

1.  The  Non-Dimensional  Governing  Differential  Equations 

For  convenience  in  developing  the  numerical  model  the  governing  equations 
may  be  placed  in  non-dimensional  form.  The  following  non-dimensional  quantities  are 
used  to  form-  the  dimensionless  equations.  These  individual  equations  for  the 
dimensionless  quantities  are  solved  for  the  dimensional  quantity  and  substituted  in  the 
dimensional  equations  from  the  previous  section  (Equations  2.24  to  2.28). 

X  =  x;H  y  =  y,H  z  =  z;H  (eqn  2.29) 


u  =  u;Vj^  V  =  v/Vp^  w  =  w/V|^  (eqn  2.30) 


t  =  t  Vj^/H  (eqn  2.31) 


P  =  P.PR  PEq=PEqPR  (eqn  2.32) 


P  =  (P  -  PEqMPRVR-)  PEq  =  PEq  (PrI^R^r)  (^qn  2.33) 


h  =  h,  Cpp^Tp^  (eqn  2.34) 
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T  =  t/{pp^Vj^2)  (eqn  2.35) 


q  =  q  (Pr'^'rCprTr)  (eqn  2.36} 


t>/ 


\  =  (Sh  H);{PrVj^CprTr)  .       (eqn  2.37) 

In  defining  these  non-dimensional  quantities  a  number  of  reference  values  have  been 
used.  H.  the  height  of  the  tank,  is  used  as  a  reference  length.  The  reference  values  for 
velocity,  density,  temperature,  specific  heat  at  constant  pressure,  and  the  gas  constant 
are  Y^,  Pj^.  T^,  ^nR-  "^^'^  ^R-  I'espectively. 

Once  the  substitutions  for  the  dimensional  quantities  are  made  in  the 
equations,  several  other  non-dimensional  quantities  appear.  These  quantities  are  the 
turbulent  Reynolds  Number  (Re^),  Llie  turbulent  Prandtl  Number  (Pr^),  the  square  of 
the  Froude  Number  (F),  and  a  number  proportional  to  the  square  of  the  Mach 
Number  (C).    The  definitions  of  these  nondimensional  quantities  are: 

Re^  =  PrVrM^i^^  (eqn  2.38) 


^h  =  ^^etT^pR-'^efl  (^^^  2.39) 


F  =  Vp^^gH  (eqn  2.40) 


^  =  "^r'  (CpR'^R^  (^^^^  '-^1) 

The  last  substitutions  necessan-'  to  convert  from  dimensional  to  non-dimensional  form 
are  for  the  heat  fluxes  and  shear  stresses.  For  rectangular  coordinates  these  quantities 
are: 
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q^^  =  -(aT/^x);(Re^Pr^) 


(eqn  2.42) 


q,.  =  -  {dJ  dy)  !  {Re^Fv^} 


{eqn  2.43) 


q^  =  -{dT;dz)!{RQ^?r^) 


(eqn  2.44) 


A/ 

^xx  ~  ^  {^u,^x)  ,  Re. 


(eqn  2.45) 


i^^,  =  {dv:  dx  +  duidy)  ;  Re^ 


(eqn  2.46) 


hz  = 


{dw:dx  +  ^u/5z)  /  Re^ 


(eqn  2:47) 


yx 


Ixv 


(eqn  2.48) 


v\- 


2  (dvidy)  !  Re^ 


(eqn  2.49) 


T^,2  =  {dw'.dy  +  c'v.'^z)  /  Re^ 


(eqn  2.50) 


zx       "-xz 


(eqn  2.51 
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^zv       ^yz 


(eqn  2.52) 


T      =  2  {d\V:dz)  .  Re^ 


(eqn  2.53} 


Making  the  specified  substitutions  in  the  dimensional  equations  resuhs  in  the  non- 
dimensional  equations.    These  equations  are  listed  below  but  the  tildes  have   been 
dropped  for  simplicity. 
Continuity  Equation: 


^p        ^  d  d 

—   +   — (pu)    +   — (Pv)    +   — (pw)    =   0 

at        ex  cy  cz 


( eqn   2.55) 


Energy  Equation; 


3  d  d  d 

— (ph)  +  — (Puh)  +  — (pvh)  +  — (pwh) 

ot  ax  oy  cz 


^qv   ^qv   ^q 


^x 


X  _ 


dx  dy 


dz 


+  S 


h 


(  eqn  2.56) 


Momentum  Equations: 


-^(pu)  +  ^-(pu^)  +  — (puv)  +  — (puw) 
ot  Cx  cy  cz 


dx 


XX 


dx 


xy 


dx 


xz 


5p 


ax 


dy 


dz  dx 


( eqn  2.57) 


— (pv)  +  — (pvu)  +  — (pv  )  +  — (Pvw) 
ot  ox  dy  cz 


dx 


vx 


dx 


dx. 


d^ 


dx 


yy  +      yz  _  __ 

^y     dz  dy 


( eqn  2. 58) 


— (pw)  +  — -(pwu)  +  -r-Cpwv)  +  — (pw  ) 

ot  ox  dy  cz 


2x  _ 


( eqn  2.  59) 
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dx  dx  dx„„        dF  1 

dx  dy  dz  dz  F^^         ^^^3)9 


Equations  of  State: 

P  C  +  Pgq  =  p  T  (eqn  2.60) 


h  =  T  -  1  (eqn  2.61) 

In  all  of  the  following  sections  non-dimensional  quantities  will  be  used  throughout  with 
the  tildes  omitted. 

2.  Non-Diniensional  Equations  in  Integral  Form 

Thus  far  all  of  the  governing  equations  have  been  expressed  in  diflerential 
form.  In  order  to  implement  a  finite  difference  scheme  however,  the  conservation 
equations  (mass,  energy,  and  momentum)  must  be  transformed  into  an  integral  form. 
This  form  allows  the  determination  of  the  dependent  variables  in  small  but  finite 
volumes  because  the  integral  equations  are  written  for  one  such  control  volume.  The 
non-dimensional  integral  equations  below  are  presented  in  a  format  for  rectangular 
coordinates.  This  is  easily  altered  by  shifting  the  x,  y,  and  z  subscripts  to  the 
appropriate  independent  spacial  variables  for  whatever  geometry*  is  selected. 
Continuity  Equation: 


d    , 

— J^pdV   =    -JsPV'ndS  (eqn   2.62) 


Energy  Equation: 

— JvPhdV   =    -JsPhv'ndS    +    Jv^h*^^  (eqn   2.63) 

VI omentum  Equations: 
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— JypudV   =    -J3puv»ndS    -    JgPrij^ds  (  eqn   2.64) 

— jypvdV   =    -Jgpvv'ndS    -    jgPn   ds  (eqn   2.65) 

■"   Is(^yx.^x   ^    "^yy^y   ^    ^yz^z)^^ 
d 


dt 


JypwdV   =    -Jgpwv'ndS    -    JgPn^ds  (eqn   2.66) 

^    J's(^zx^x   ^    ^zy^y   "^    ^zz^z)<=^S    -    (p    -    p^^)g/F 

In  these  equations  V  is  the  control  volume,  S  is  a  surface  of  the  control  volume  and  n 
is  and  outward  pointing  normal  at  a  particular  surface.   [Ref  10:  pp.  8-13] 

C.       FINITE  DIFFERENCE  EQUATIONS 

In  order  to  develop  a  finite  dilTerence  algorithm  the  total  volume  to  be  modeled 
must  be  divided  into  a  large  number  of  finite  cells.  The  conservation  equations  are 
applied  to  each  volume  with  the  boundary  conditions  apphed  at  the  appropriate 
surfaces.  The  rectangular  geometn.'  described  here  has  a  uniform  grid.  The  cells  are 
therefore  all  identical  and  the  derivation  of  the  equations  is  relatively  simple.  In  the 
cylindrical;  spherical  geometry-  discussed  in  Appendix  A  the  radial  grid  is  non-uniform 
and  more  complex.  To  make  the  application  of  the  boundarv'  conditions  easier  the  cell 
boundaries  coincide  with  the  physical  boundaries.  In  this  finite  difierence  algorithm 
the  temperature,  density,  and  pressure  are  calculated  at  the  basic  grid  points.  The 
velocity  grids  are  staggered  one  half  of  a  cell  from  the  basic  grid.  Patankar  gives  a 
detailed  explanation  of  the  reasons  for  using  a  staggered  grid  in  [Ref  8:  pp.  11S-120J. 
Basically,  there  are  two  reasons  for  the  staggered  grid.  First  the  velocity  is  easily 
calculated  as  a  function  of  the  pressures  of  the  basic  cells  on  either  side  of  the 
staggered  cell.  Figure  2.1  illustrates  this  for  a  one  dimensional  system.  With  the 
pressure  known  at  basic  cells  A  and  B  it  is  easier  to  calculate  the  velocity  at  B*  the 
center  of  the  staggered  cell  rather  than  at  either  of  the  basic  cells  A  or  B.  The  second 
reason  for  using  a  staggered  grid  is  that  the    difference  of  adjacent  velocities  is  used  in 
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the     conimuiiy     equation     which     eliminates     an     unrealistic     oscillating     solution. 
[Ref.  S:  p.l20] 


lA 

B* 

1 
1 

1 

1 

Figure  2.1     One-Dinvcnsional  Staggered  Cell. 

In  developing  the  finite  difference  equations  finite  quantities  are  substituted  for 
the  dilTerential  element  in  the  integral  form  of  the  equations.  For  example. 
dV  =  AxAyAz  where  the  A  quantities  are  finite  quantities.  Similar  substitutions  are 
made  for  the  various  fluxes  across  the  cell  boundaries.  Two  distinct  diflercncing 
techniques  are  used  in  this  numerical  scheme.  Fonvard  dilTerencing  is  used  for  the  time 
steps  and  upwind  difTerencing  [Ref.  S:  pp.  83-85]  is  used  for  the  energy  and  momentum 
fluxes.  In  the  forward  difierence  technique  a  future  value  of  the  dependent  variable  is 
predicted  from  a  previous  one  plus  a  known  slope  multiplied  by  the  time  step.  For  the 
continuity  equation 


p  =  p'   -r  m  At 


(eqn  2.67) 


where  p'  i*^  the  vakic  of  the  density  at  the  prc\'iou';  time  step,  p  is  th.e  neu'  \'alue.  and  m 
is  a  slope.    L'sing  this  scheme  for  the  time  dependent  term  m  the  coniinuit}.'  equation 


^'v 


pdV 


rp 

-r  dV 


9-9 
At 


-AxAyAz 


( eqn    2.  68) 


As  previously  stated  upwind  difTerencing  is  employed  in  the  calculation  of  the  fluxes 
across  the  cell  surfaces.  Using  the  energy  equation  as  an  example,  the  value  of  the 
enthalpy  h  and  hence  the  temperature  in  the  cell  under  consideration  depends  on  the 
enthalpy  in  the  upwind  cell,  not  the  downwind  cell.  The  upwind  cell  is  defined  as  the 
cell  from  which  the  flow  or  velocity  is  coming. 

The  basic  cell  shown  in  Figure  2.2  is  used  for  the  continuity  and  energy 
equations.  To  ease  the  development  of  the  equations,  directions  have  been  assigned  to 
the  coordinate  axes.  East  is  in  the  positive  x  direction,  west  is  negative.  North  is  in 
the  positive  y  direction,  south  is  negative  and  top  is  in  the  positive  z  direction  while 
bottom  is  negative.  The  center  cell  P  is  the  control  volume  under  consideration.  The 
cell  to  the  east  is  E  and  the  boundary  surface  between  them  is  e.  The  other  adjacent 
cells  follow  the  same  convention.  Since  the  velocity  cells  are  staggered,  velocities  are 
known  at  the  boundaries  between  the  basic  cells.  The  temperature,  pressure,  and 
density  are  known  at  the  basic  cells. 

To  simplify  the  equations  mass  fluxes  at  the  basic  P  cell  boundaries  are  defined 
as  follows: 

Gg  =  .5  {p£  +  pp)  Ug  (eqn  2.69) 


G^v  =  -^  (Pp  ^  Pw)  V  (^'^^  ^•^'^^ 


^n  "  -^^PN  ^  Pp)^n  {eqn  2.71) 


Gg  =  .5  (pp  +  pg)  Vg  '  (eqn  2.72) 


Gj  =  .5  (py  +  pp)  w^  .  (eqn  2.73) 
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G^  =  .5  {pp  +  pg)  w^ 


:eqn  2.74) 


Ideally  in  the  continuity  equation  the  sum  of  the  mass  [luxes  entering  the  cell  is  zero 
but  ("or  the  iterative  numerical  solution  this  will  not  be  true,  especially  initialh'.  The 
sum  of  the  mass  lluxes  will  equal  a  finite  non-/ero  value  which  is  called  the  ma^s 
source  term  S  .  .As  the  sokuion  i<;  iterated  and  con\erges.  tlie  mass  source  term 
becomes  smaller  and  smaller  until  it  is  les^  than  a  cutoH'  value  which  is  made  close  to 
zero.     With    infinite    iterations    and    miinite    machine    accuracv    Sm    would    become 
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identically  equal  to  zero  and  the  continuity  equation  would  be  satisfied  exactly.  In  the 
actual  numerical  solution  it  is  satisfied  only  approximately.  Utilizing  the  definitions  for 
the  mass  fluxes  and  the  mass  source  the  continuity  equation  in  finite  difference  form  is: 
Continuity  Equation: 

(Pp  -  p°p)AxAyAz/6t  +  (Gg-G^^,)AyAz  +  {G^-G^)\z^x 

(eqn  2.75) 
+  (G^-G|^)AxAy  =  Snip 

The  other  conservation  equation  that  utilizes  the  basic  cell  is  the  energy  equation. 
Energy  Equation: 

[^'\p  +  p^p  AxAyAz.At]  hp  =  ^A^h^  +  ^^X^yh^^y 

1.  V,  ;,  (eQn  2.76)' 

hA    u     a-  h.A    u     J-  hc_  ^    '  ^ 


+  "AN^hx^-  +  "Aghg  4-  '^Ajhj  +  ''Aghg  +  ^'Sp 


where 


^A£  =  .5(|Ggi  -  Gg)AyAz  +  (l/Re^Pr^)^  AyAz/Ax  (eqn  2.77) 


^AW  =  ■SilG^.rl  +   G,^,)AyAz  +  (I  Re^Pr^),^,  AyAz/Ax  (eqn  2.78) 


^A^  =  .5{\G^\  -  G^)AzAx  +  (l/Re^Pr^)^  AzAx/Ay  (eqn  2.79) 


^Ag  =  .5{\G^\  +   G3)AzAx  +  (l;Re^Pr^)3  AzAx.Ay  (eqn  2.80) 


^A-p  =  .5(|G^|  -  G^)A.xAy  +  (l/Re^Pr^)^  AxAy,  Az  (eqn  2.81) 
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^Ag  =  .5(|G^|  +  G^)AxAy  +  (l/Re^Pr^)^  AxAy/Az  (eqn  2.82) 


V\p  =  ^A^  +  ^A^y  +  \\y^  +  ^A3  +  \\j  +  \\^  (eqn  2.83) 


^Sp  =  p°p  h^p  AxAvAz  (eqn  2.84) 

The  momentum  equations  are  slightly  more  complex  because  of  the  staggered 
cells  and  the  additional  terms  introduced  by  the  shear  stress  tensor.  The  grid  for  the  x- 
momentum  equation  is  shifted  one  half  cell  to  the  left  (the  negative  x-direction)  and 
quantities  m  this  grid  are  designated  \vith  a  ^  superscript.  Similarly,  the  staggered  grids 
for  the  y  and  z-momentum  equations  are  shifted  one  half  cell  in  the  negative  y  and  z 
directions  from  the  basic  cell  and  these  are  designated  with  ^  and  '^  superscripts, 
respectively.  Figures  2.3,  2.4,  and  2.5  show  these  grids  with  respect  to  the  basic  grid 
for  the  xy,  yz,  and  zx  planes.  The  finite  difference  momentum  equations  are: 
X- Momentum: 

[Apa   +   p^pa  AxAyAz'At]  Upa   = 

Aga  U^a  +  A-^ya  U^/a  +  A>^-a  U>,^:a  (eqn  2.85) 

+   Aca  Uca   +   Apa  U-pa   +   Ana  Una   +   Spa 

where 

Apa  =  [.5(|Gga|  -  Gga)  +  ( I  Re^)ga  /Ax]  AyAz  (eqn  2. 86) 


A^ya  =  [.5(|G^^,.ai  +  G^^^)  +  (l/Rej)^^^T  ;Ax]  AyAz  (eqn  2.S7) 


A^-a  =  [.5(|G^a|  -  Gj^a)  +  (l'Re^)^a  /Ay]  AzAx  (eqn  2.88) 


31 


Figure  2.3     Stassered  Grid  X^'  Plane. 


A^a  =  [.idG^al  +  G^a)  -  (1  Re^j^a    Ay]  AzAx 


(eqn  2.S9j 


Aja  =  [.3(|G^a|  -  G^a)  +  (1  Re^)^a  ,  Az]  AxAy 


(eqn  2.90) 


Aga  =  [.5(|G^a|  -  G^n)  +  (1  Re^)^a    Az]  AxAy 


(eqn  2.91 


Apa   —    Aj£a   +   '"^W^   ■*"   A\^a   +    Aca   -*-   .Aj-a   +    Ana 


(cqn  2.92: 


Sna 


Figure  2.4     Staggered  Grid  YZ  Plane. 
p'pa  u"pa  AxAyAz  At  -  (Pp  -  PT^y)AyAz 

-r    {U^a  -  U^^..nXl    Re^)ga  AvAz^  Ax 

-  {u^^ji  -  uj.j  ,_|.){  1  Rc^\^.a  AyAz.'Ax  (eqn  2.9: 

^  f(\j+l,k-^'i-Kj+I,k)(l  P^^t^n^   -   ^\i.k-^'i-l.j,kXl  R^tVl^z 
^  t^^S.j.k+l-^^'i-l.j.k+P^'  f^^tV   -   ^^^Ij.k-^^'i-l.j.kHJ  Re^V]'^>' 


and  in  these  equations 


p^pa    =    Ip'p   -    p^^y)     2 


(cqn  2.94) 


Fieure  2.5     Staeeered  Grid  ZX  Plane. 


"i,j,k  =  ^v  U;  ^  ,  ;  ,.   =  u 


1+  l.j.k  ~   ^e 


(eqn  2.95) 


u^a  =  (u^  +  u^^.)    2 


(eqn  2.96) 


V'  =  ^V  ^  ^'i-l.,.k'    - 


(eqn  2.97) 


V  =  <^,i+l.k  ^  V>    2 


(eqn  2. 98) 
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U^a   =    (lHv+   %i-l,k>''^ 


(eqn  2.99) 


V  =  ^\i,k+l  "^  'Hv)'2 


(eqn  2.100) 


^b^  =  (^v  ^  Wm'^  '^ 


(eqn  2.101) 


Pi.i.k  =  PP 


(eqn  2.102) 


G^a  =    PpUga 


G\y^  -    PW^\-^ 


r^a   =    [.5(Pn-   +    Pp)Vn  +    -^iPi-l.j+Uk  -^    Pvv)^l-l,j+l,k^ 


G,a  =  [.5(pp  +  ps)Vs  +  .5(p,,.  +  Pi-i.j-hk)  "'i-Lj^kl  '^ 


G,a  =  [.5(pj  +  Pp)Wt  +  •5(Pi-i.j,k4-l  +  Pw)^''i-l,i,k+l^''' 


'b 
Y-M  omentum: 
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(eqn  2.103) 


(eqn  2.104) 


/2  (eqn  2.105) 


(eqn  2.106) 


(eqn  2.107) 


G,  „  =  l.5(pp  +  PbK  -  -'^(Pw  -  P-l,i.k-l)  -M.i.kl  '''-  ^"1"  '■'"'' 


[Apb  +  p'pb  AxAyAz/AtJ  vpb  = 

Agb  vgb  +  A^yb  v^yb  +  A_>^-b  v>^-b  (eqn  2.109) 

+  Agb  vgb  +  Ajb  v-pb  +  Agb  vgb    +  Spb 

where 

Agb  =  [.5(|G^b|  -  Ggb) 

+  (I  Re^)gb/Ax]  AyAz  i  (eqn  2.110) 

A^yb  =  [.5(lG^^.b|  +  G^^.b) 

+  (l.Re^Vb    AxjAyAz  {eqn  2.111) 

^N''  =  l^ilG^bl  -  G^b) 

+  (l/Re^)nb/Ay]AzAx  -  (eqn  2.112) 

Asb  =  [.5{|G3b|  +  G^b) 

+  (1-Re^)3b/Ay]  AzAx  (eqn  2.113) 

Ajb  =  [.5(|G^b|  -  G^b) 

+  (l/Re^)^b/Az]AxAy  (eqn  2.114) 

Agb  =  [.5{\G^b\  -  G^b) 

+  (l/Re^)^b,Az]AxAy  (eqn  2.115) 

Apb  =  Agb  +  A^yb  +  AN^b  +  Agb 

+  A-j-b  +  Agb  (eqn  2.116) 

Spa  =  p'pb  v^pb  AxAyAz/At  -  (Pp  -  P3)AzAx 

+  (^H-l,j.k  +  ^H-l.j-l,kXl'Re,)ebAy 

-(^j,k-\j-l,kXl'Re^)wb^y 
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+  (v^b  -  VgbXl/Re^j^b  AzAx'Ay  {eqn  2.117) 

-  (Vgb  -  ^■i.j.i.kXl  Re^)sb  AzAx,Ay 

+  ^^Xj,k-f-l-nj-l,k-M)(l'^^A''^^ 
-^^\j,k-^\j-l,k)(l''R^t>b'^^^ 

Equations  siniilar  to  Equations  2.94  to  2.108  may  be  easily  Formulated  for  the  Y 
and  Z  momentum  equations  but  they  are  omitted  here  for  the  sake  of  brevity. 
Z-M  omentum: 

[Ape  +  p'pc  AxAyAz  At]  wpc  = 

Age  W£c  +  A^^yc  W'^yc  +  A-s^-c  Wn^-c  (eqn2.11S) 

+   Acc  Woe   +   Ajc  W-j-c   -i-   Age  Woe   +   Spc 

where 


Age  =    [.5{|Ggc|  -  G^e) 

+  (1/Re^)gc  /Ax]  AyAz 

A\yc  =  [.5{|G^^c|  +  G^c) 

+  (l;Re^)^^.c/Ax]  AyAz 

A>.^-c  =  [.SdG^el  -  G^c) 

+  (l/Re^)j^c;Ay]  AzAx 

Age  =  [.SdG^cl  +  G^e) 

+  (1  Re^)3e;Ay]  AzAx    . 

A-pe   =    [.5(|G^e|  -  G^e) 

+  {1/Rej)^c  /Az]  AxAy 
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(eqn  2.119) 


(eqn  2.120) 


(eqn  2.121) 


(eqn  2.122) 


(eqn  2.123) 


(eqn  2.124) 


(eqn  2.125) 


(eqn  2.126) 


Age  =  [.5{|G^c|  -  G^c) 

+  (1  Re^)j^c  ;Az]  AxAy 

Ape   =    Ape   +    Ai^ye   +    A\^-e   +    Acc 
+    A-re    +    AdC 

Spc  =  p°pe  w'pc  AxAyAz;At  -  (Pp  -  Pg)AxAy 

-  {p"pc  -  p£    pc)AxAyAz;F 

+  (^H+l,j,k  +  ^i+l.j.k-lX^Re^)e^^^ 

-(^^i.j,k-^j,k-iXi  Re^V^z 

+  (^j4-l,k-\j+l.k-l)(l'^^t)n=^^ 

-(\j,k-\j,k-lXl'^^t)s^^^^ 
+  (WjC  -  w^c)(l,'Re^)j.c  AxAy,  Az 

-  (w^c  -  w- j^i^.  j){  1/Re^)^c  AxAy/ A 

In  each  equation,  velocities  corresponding  to  the  primary  direction  of  momentum 
transfer  in  each  momentum  equation  are  expressed  with  the  e,  w,  n.  s,  t.  and  b 
subscripts.  Thus  in  the  x-momentum  equation  u  velocities  have  these  subscripts. 
Because  of  the  complexity  of  the  equations  the  other  velocities  such  as  v  and  w 
velocities  in  the  x  momentum  equation  have  i,  j,  and  k  subscripts.  When  using  this 
notation  v-  j  ^  is  the  v  velocity  at  P^  or  the  center  of  the  v  grid.  Similarly  w-  •  ^  is  at 
P"^  and  u;  ;  1,    is  at  P^. 

D.       INITIAL  CONDITIONS  AND  BOUNDARY  CONDITIONS 

In  order  to  obtain  solutions  to  the  governing  equations  initial  and  boundary 
conditions  must  be  applied  to  the  model.  Because  of  the  setup  of  the  model  with  the 
cell  boundaries  corresponding  to  the  physical  boundaries  the  applications  of  these 
conditions  is  relatively  easv. 
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1.  Initial  Conditions 

The  initial  conditions  correspond  to  tlie  Fire  I  test  vessel  just  prior  to  a  test. 
The  air  is  initially  motionless  so  the  velocity  field  is  set  equal  to  zero.  The  pressure 
distribution  is  the  static  equilibrium  distribution  in  the  tank.  The  ambient  temperature 
is  an  input  to  the  program  and  corresponds  to  a  non-dimensional  temperature  of  1  at 
all  points. 

2.  Boundan'  Conditions 

Because  the  chamber  is  sealed  no  mass  flows  across  any  of  its  surfaces.  Thus 
the  velocity  and  hence  the  mass  flux  normal  to  any  surface  is  zero.  No  slip  conditions 
are  also  taken  at  the  walls  so  all  velocities  at  the  walls  are  zero.  The  boundary' 
conditions  for  the  energy  equations  are  more  complex  because  thermal  radiation  energy 
is  deposited  at  the  interior  wall  surfaces  and  the  steel  walls  conduct  energy  to  the 
exterior  walls  where  it  is  convected  away.  In  this  model  the  innermost  wall  cell  is  the 
outermost  cell  for  the  cavity  calculation  domain.  The  determination  of  the 
temperatures  in  the  wall  cells  is  discussed  in  detail  in  the  conduction  model  section. 
The  effect  of  the  energy  transported  to  the  wall  by  the  thermal  radiation  is  also 
discussed  there. 

E.       TURBULENCE  MODEL 

The  turbulence  model  used  in  the  algorithm  is  an  algebraic  model.  The  relatively 
simple  algebraic  type  of  model  was  selected  because  the  desired  outputs  of  the  program 
are  the  average  values  of  the  dependent  variables  which  the  algebraic  model  predicts 
adequately  while  using  much  less  computational  time  than  its  rivals.  More  complex 
models  are  required  when  computation  of  turbulent  characteristics  is  desired.  Nee  and 
Liu  presented  in  [Ref  11:  p.  107]  a  model  which  is  satisfacton.'  for  obtaining  the 
effective  viscosity  (|-ig£f)  in  recirculating  buoyant  flows  with  large  variations  in  the 
turbulence  level.  In  dimensionless  form,  when  generalized  to  three  dimensional  flows, 
the  equation  is 


=  1  +  1-2L — ix — :j£ 


Ri  ( eqn   2. 127) 

2    +    


where  Ri  is  the  Richardson  number  defined  as 
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Ri    = 


gH 


( dT/dz ) 
2-  T^TTT^TTZ 


Vj^^      (cu/oz)^  +  (av/5z) 


( eqn   2.  12  8) 


Pr^  is  the  turbulent  Prandtl  number,    I  H    is  the  non-dimensional  niixmg  length  given 
as 


H 


=  K 


+ 


7^ 

2' 

3u 

1 

'  ax 
J  J 

7^[ 

.1 
au    1" 

(eqn  2.129) 


and    K    in    the    mixing    length    equation    is    an    adjustable    constant.     The    efTective 
conductivity  is  related  to  the  elfective  velocity  by  tiie  following  equation: 


'eff 


^eff 


Pr 


Pr. 


( eqn   2. 130) 


where  Pr  is  the  molecular  Prandtl  number. 

F.       CONDUCTION  MODEL 

In  the  later  stages  of  the  fire  tests  in  the  Fire  I  Test  Chamber  the  bulk  of  the 
heat  energy  transferred  into  the  cavity  is  lost  through  the  walls.  As  a  result  the 
incorporation  of  a  conduction  model  in  the  numerical  model  is  vital  if  the  numerical 
simulation  is  to  bear  any  resemblence  to  the  actual  test  results. 

A  simple  one  dimensional  model  dc-cnbcd  by  Cliang  and  ^'ang  in  [Ref  12:  pp. 
24-27]  is  used  here.  The  model  consists  of  2.5  cclh  through  the  wall  thickness.  .A 
constant  thermal  conductivity  for  the  steel  is  used  and  an  appropriate  convection 
cocfTicient  for  the  outside  wall  must  be  selected.  Tigurc  2.6  '<how'.  the  setup  of  the  wall 
cells.  Three  t\pes  of  equations  are  necessar}'  to  describe  this  situation:  One  for  the 
cells  in  contact  with  the  outride,  one  lor  the  center  cclk.  and  one  for  the  inside  wall 
cells.    The  equations  shown  below  are  written  for  a  wall  section  at  the  bottom  of  the 
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rectangular  box  so  the  area  for  the  heat  transfer  is  AxAy  and  the  outward  normal  is  in 
the  negative  z  direction.  The  equations  are  shown  in  dimensional  form.  Starting  from 
the  outside  where  the  cell  is  1/2  the  thickness  of  the  interior  cells  the  one  dimensional 
equation  using  the  convection  boundan."  condition  on  the  outside  is: 


^ 

ou  t  side 

W3       ^\Jw2 

V         1                            ^^s. 

AZv, 

-^z.w 

2 

inside 

Fieure  2.6     Arransement  of  Cells  in  the  Wall  Conduction  Model. 


'W 


Az 


V^ 


AxAy(To^2    -T°wi)    "    hAxAy(  To^^^    -    To^)    = 


( eqn    2.  131) 
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AxAyAz 
PSw    2    At  ^^Wl-T°Wl) 


For  a  center  cell  the  equation  is: 


k  k 


AxAyAz 


( eqn   2. 132 ) 


On  the  inside  wall  the  wall  cell  is  also  included  in  the  cavity  domain  so  T-s^y-  in  the  wall 
is  the  same  a  Tj  for  the  cavity  calculations.  T^  is  the  first  non-wall  cell  in  the  cavity. 
Using  this  nomenclature  the  equation  for  the  inside  of  the  cavity  wall  cell  is: 


-^AxAy(T02    -    To^)    J^^AxAyC  To^3    -    To^^) 

AxAyAz 
*    2r   =   P^W-^^ (%3    -    T-W3) 


( eqn   2. 133 ) 


In  these  equations  k^^y  is  the  wall  conductivity,  Az-^^y  is  the  thickness  of  a  full  size  wall 
cell,  pC^y  is  the  heat  capacitance  of  the  wall  material  and  in  the  inside  wall  cell 
equation  Q^.  is  the  heat  input  to  the  inside  cell  by  thermal  radiation, 

G.       RADIATION  MODEL 

The  radiation  model  used  in  the  numerical  model  only  accounts  for  the  surface  to 
surface  radiation  efiects.  The  gas  inside  the  test  vessel  is  assumed  to  be  transparent 
and  nonparticipating.  This  assumption  tends  to  increase  the  heat  transfer  to  the  inside 
vessel  walls  [Ref  13:  pp.  142-161].  The  elTect  of  the  model  therefore  is  to  take  energy 
directly  from  the  location  of  the  fire  and  deposit  it  on  the  walls  of  the  tank  thereby 
affecting  the  boundarv'  conditions  for  the  energy  equation  at  these  walls.  The  term  for 
this  addition  of  energy  at  the  wall  has  already  been  utilized  in  the  conduction  model. 
The  surfaces  of  the  tank  and  the  fire  are  assumed  to  be  gray.  All  radiation  whether 
reflected  or  emitted  from  a  surface  is  assumed  to  be  dilTuse. 
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1.  The  Method  for  Calculating  the  Radiant  Heat  Transfer. 

The  net  radiosity  method  for  the  interchange  of  radiation  between  gray 
surfaces  as  described  by  Sparrow  and  Cess  in  [Ref.  14:  pp.  90-94]  is  the  basis  of  the 
radiation  model.  The  aim  is  to  accurately  model  the  radiation  effects  while  using  as 
little  computation  time  as  possible. 

In  order  to  understand  the  radiation  model  a  number  of  terms  must  be 
defined.  The  net  rate  of  energy  loss  by  a  surface  (i)  due  to  radiation  is  equal  to  the 
energy  emitted  minus  the  energy  absorbed  or 

Qi/A^  =  £j(TT^^-a^Hi  •  (eqn  2.134) 

where  z.  is  the  emittance.  d  is  the  Stephan-Boltzman  constant,  a^  is  the  absorptance. 
and  H-  is  the  incident  radiant  energy  per  unit  time  and  area.  The  radiosity  B^  is  the  rate 
at  which  radiant  energy  leaves  a  surface  and  equals  the  radiation  emitted  plus  the 
radiation  reflected. 

^1  =  ^1^  V  "^  Pi^i  (eqn  2.135) 

In  this  equation  pj  is  the  reflectance  of  the  surface.  Since  the  tank  surface  is  assumed 
opaque  no  thermal  radiation  is  transmitted  through  the  material  so  it  must  be  either 
reflected  or  absorbed  and 

p-  +  a^  =   1  (eqn  2.136) 

Also  since  the  surfaces  are  assumed  gray 

a^  =  e-  (eqn  2.137) 

Combining  this  with  Equation  2.136 

p^  =   1  -  £•  (eqn  2.138) 

With  the  definitions  above  the  calculation  procedure  for  the  radiation  energy 
fluxes  can  be  developed.    Substituting  for  p-  in  Equation  2.135 
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B-  =  Cj  (7  Ti"^  +  (1  -  £|)  H-  (eqn  2.139) 

Now  recallin2  that  H;  is  the  enersv  incident  on  surface  (i).  H;  can  be  defined  as  the 
sum  of  the  radiosities  B:  for  each  of  the  surfaces  in  the  enclosure  multiphed  by  the 
shape  factor  F-  where  F-;  is  the  fraction  of  energy  emitted  from  surface  (j)  that  is 
incident  on  surface  (i). 

Hj  =  S  Sj  f'ij  .  {eqn  2.140) 

The  radiosity  now  becomes 

B^  =  c^(tT^'1  4-  (l-c^j^B^F-j  {eqn  2.141) 

where  1  <  i  <  N  which  gives  N  equations  for  N  surfaces.  To  find  the  net  heat  loss 
at  a  particular  surface  substitute  B-  from  Equation  2.139  into 

-i   = i (CTT^^    -    B^^)  (eqn   2.142) 

Ai         1    -    c^ 

This  equation.  Equation  2.142  was  found  by  solving  for  H-  in  Equation  2.139  and 
substituting  into  equation  2.134. 

As  just  mentioned,  the  heat  loss  from  each  surface  may  be  found  by  solving 
the  N  simultaneous  equations  resulting  from  Equation  2.141  and  then  substituting  into 
Equation  2.142.  In  order  to  solve  the  N  simultaneous  equations  the  temperature  and 
emittance  of  each  of  the  N  surfaces  must  be  known  as  well  as  the  view  factors  from 
every  surface  to  ever\'  other  surface.  By  manipulation  of  the  equations  it  is  possible  to 
set  up  a  situation  where  the  simultaneous  equations  need  only  to  be  solved  once  and 
then  the  temperatures  raised  to  the  fourth  power  in  vector  form  are  multiplied  by  an 
unchanging  square  matrix  to  yield  the  heat  loss  rates  for  each  surface.  In  the 
equations  which  follow,  []  brackets  enclose  a  square  matrix  and  <  >  brackets  enclose  a 
column  vector.    Using  matrix  notation  Equation  2.141  is  written  as 

[C]  <B>    =  (7  <T'^>  {eqn  2.143) 

where  each  element  in  the  C  matrix  is  defined  by 
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qj  =  [5^j-(l-cpF^j]/£i  (eqn  2.144) 

In  Equation  2.144,  5-:  is  the  Kronecker  delta  so  if  i  =  j  then  6-  is  one.  othenvise  6-:  is 
zero.    Solving  Equation  2.143  for  <B> 

<B>    =  [C]'^  (T  <T'^>  (eqn  2.145) 

Now  to  solve  for  the  heat  loss  rate  substitute  Equation  2.145  into  Equation  2.142  so 
that 

<Qj'Aj>    =  [G]G  <J^>  (eqn  2.146) 

where 

G^j  =  (8^--D^j)e^/{l-£p  (eqn  2.147) 

and 

[D]  =  [C]-^  .    '  ■  {eqn2.14S) 

In  this  scheme  the  [G]  matrix  is  found  using  the  emittance  and  view  factors  and  need 
only  be  calculated  once.  Then  to  find  <Q-;A->  the  temperatures  for  each  surface  are 
substituted  into  Equation  2.146. 

To  reduce  the  calculations  necessarv'  for  the  radiation  model  further,  the 
number  of  surface  radiation  zones  is  made  significantly  less  than  the  number  of  cells 
with  boundaries  touching  the  surface.  This  is  accomplished  by  grouping  20-30  surface 
cells  into  each  surface  radiation  zone.  Then  the  temperatures  raised  to  the  fourth 
power  for  the  cells  are  averaged  to  get  a  T  value  for  each  zone.  This  reduces 
enormously  the  number  of  view  factors  and  the  number  of  radiant  heat  fluxes  that 
must  be  calculated. 

2.  View  Factor  Calculations 

In  order  to  implement  the  radiation  calculaticKis  just  described  the  view 
factors,  which  are  the  ratio  of  radiant  energy  leaving  one  surface  that  is  incident  on 
another,  must  be  calculated.    In  the  rectangular  box  which  is  the  calculation  domain 
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for  this  system,  the  "llanie"  is  modeled  as  a  specified  group  of  cells  in  the  interior  of  the 
cavity  where  energy  representing  the  heat  input  of  the  fire  is  added.  In  this  model  the 
flame  surfaces  are  therefore  also  rectangular  in  shape.  Thus  the  view  factors  are  of  two 
types:  Radiation  exchange  between  parallel  rectangular  surfaces  and  radiation 
exchange  between  perpendicular  rectangular  surfaces. 

Sparrow  and  Cess  in  [Ref  14:  p.   125]  provide  the  general  definition  of  the 
shape  factor. 

F21  =  (rA2)  JJcosejCosG^  (irr-)  dAjdA2  (eqn  2.149) 

Figure  2.7  illustrates  the  configuration  of  the  two  surfaces  used  in  this  definition. 
Although  equations  are  tabulated  for  the  geometries  m  [Ref  14:  pp.  339-344]  and  many 
others  they  are  complex  and  tedious.  Instead  of  using  these  equations  a  direct 
numerical  method  employed  by  Chang  and  Yang  in  [Ref  12:  pp.  15- IS]  has  been  used. 
Figure  2.S  illustrates  the  arrangement  of  the  two  perpendicular  rectangular  surfaces. 
The  equation  for  the  view  factor  corresponding  to  this  geometry  is 


1=1  j=i  k=i  1=1     •  (eqn  2.150) 


where  i,  j,  k..  and  1  are  the  indices  for  the  coordinates  shown  in  Figure  2.S  and 

AL|j  =  (a|-  +  x-^)^-  (eqn  2.151) 


BEj^  =  (yj-\)  (eqn  2.152) 


G(ALi,BF^^^) 


=    iBF^^jA^tan-'(BH^^ALi,) 


*)  -)  1   -> 


cun  2. 153; 
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Figure  2,7     Contisuration  of  Surfaces  for 
View  FactoT  Dcterinjiiacion. 


+  .5  [ALj-  In(ALii)]}    ,'  27t 

The  second  configurauon  consisting  of  two  parallel  plates  is  shown  in  Figure  2.9.    The 
equation  of  the  view  factor  for  this  geometn'  is 


->->')-) 


1=1     ]=1    lC=l    1=1 


where 


and 


{eqn  2.154) 


AL|-  =  a|  z  +  Xj  z  (eqn  2.155) 


BE-^  =  b^;z  +  y-;z  (eqn  2.156) 


G(ALi,,BEji,) 

=  AL^(l  +  BEi^j)^''-  tan-^A^/d-f  BE^pl'-] 

+  BEi^-(l  +  ALipl''2tan-^[BEj^j(l  +  AL^pl''2] 

,  T  ,  ,^  (eqn  2.157) 

-  BEj^jtan-l(BEj^p  +  ln[(l  +  BE^-)1  '] 

-  ALi^tan-'(ALjP  +  ln[(l  +  ALj^2)l;2j 

-  .5  1n(l  +  A^-  +  BEj,^^) 

From  these  two  view  factor  equations  all  the  necessarv-  view  factors  for  the  rectangular 
geometn'  may  be  calculated.    [Ref  12:  pp.  15-16] 

Appendix  B  lists  the  fortran  program  which  calculates  the  view  factors.  These 
view  factors  are  calculated  for  a  particular  fire  location  and  then  utilized  when  the 
main  program  is  run. 
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ricure  2.S     Ciconictn'  for  \"ic\v  Factor  Calculaiioii  between  Perneiuiieular  Plane  SLirCacc;. 
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H.      PRESSURE  CORRECTION 

One  of  the  dilTiculties  arising  from  the  use  of  primitive  variables  is  the  dilTiculty' 
of  calculating  the  pressure.  In  the  closed  system  modeled  here  the  pressure  changes  are 
divided  into  two  parts:  1.)  Changes  due  to  a  net  energy  change  in  the  system  which 
raises  or  or  lowers  the  pressure  ever\'where,  and  2.)  Changes  in  pressure  within  regions 
of  the  tank,  which  determine  the  velocity  field.  To  account  for  these  changes  in 
pressure  a  global  pressure  correction  is  applied  for  the  first  case  and  a  local  pressure 
correction  for  the  second. 

1.  Global  Pressure  Correction  t 

The  global  pressure  correction  is  based  on  a  scheme  for  a  two  dimensional 
uniform  grid  as  developed  by  Nicolette,  Yang,  and  Lloyd  in  [Ref  15:  pp.  1724-1725]. 
Using  this  method  overall  pressure  levels  are  increased  or  decreased  depending  upon 
whether  energy  is  added  or  removed  from  a  system  with  constant  mass  and  volume. 
At  any  particular  time  step  (n)  in  such  a  system  the  sum  over  all  the  cells  of  the  cell 
density  times  the  volume  is  equal  to  a  constant  which  is  the  mass  of  the  system.  This 
is  of  course  the  same  as  the  sum  using  the  initial  equilibrium  densities  because  the  mass 
in  the  vessel  does  not  change.    Therefore  summing  over  N  cells: 

L  Pj^(AxAyAz)j  =  L  p^^^/AxAyAz)-  (eqn  2.158) 

Since  the  cells  are  uniform,  (AxAyAz)-  may  be  divided  out  so  that 

-Pi^'^-PEq,!  (eqn  2.159) 

Assuming  an  ideal  gas  and  recalling  that  the  volume  is  constant,  p  the  density  is  a 
function  of?  and  T  only.  Now  e.xpressing  the  exact  or  true  values  of  the  pressure  and 
temperature  at  a  time  step  as  the  sum  of  an  estimated  value  and  a  global  correction 
then: 

P  =  P"  +  P^'  (eqn  2.160) 


T  =  T'""  +  T^'  .  (eqn  2.161) 
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Fiizurc  2.^"^     Geonictrv  for  \'ic\v  I'actor  CaLulation  hctv.ccn  Parallel  I'lanc  Surlaccs. 
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where  the  *  superscript  is  the  guessed  or  estimated  value  and  the  '  subscript  g  is  the 
correction.  Substituting  these  equations,  2.160  and  2.161  into  Equation  2.159  and 
using  the  ideal  gas  law  results  in 

Pg'  =   ^-^Eqll'Ti  -  IT*]  -  I:(P*/T')}  /  Z{ir}  (eqn  2.162) 

Generally  the  first  guess  for  P'  is  the  value  from  the  previous  time  step.  Then  a  P^'  is 
computed  and  added  to  the  estimated  value  in  every  cell.  This  procedure  is  continued 
until  a  globally  corrected  pressure  is  obtained  which  conserves  mass  in  everv'  cell 
[Ref  15:  pp.  1724-1725]. 

2.  Local  Pressure  Correction 

The  difficulty  in  determining  the  pressure  field  results  from  the  fact  that  the 
pressure  appears  m  equation  of  state  multiplied  by  C  which  is  a  non-dimensional 
number  proportional  to  the  square  of  the  Mach  number.  Since  the  velocities  are 
relatively  low  compared  to  the  speed  of  sound  m  this  natural  convectionsystem.  C  is 
extremely  small  and  the  pressure  is  very  weakly  linked  to  the  system  of  equations. 
Trying  to  extract  the  pressure  from  the  equation  of  state  by  using  a  numerical  method 
is  doomed  to  failure.  Instead,  an  iterative  technique  using  the  mass  conservation 
equation  to  find  the  pressure  is  employed.  In  it  the  pressure  field  is  guessed.  Then  the 
velocities  are  computed  based  on  this  pressure  distribution.  With  the  velocities  known 
the  mass  source  term  S^^  also  called  the  residual  mass  is  computed  for  each  cell.  The 
size  of  S^  is  a  check  on  the  conservation  of  mass  in  each  cell  and  a  sum  of  the 
absolute  values  of  S^  gives  an  overall  error  for  conservation  of  mass  in  the  system.  If 
Sj^  is  near  zero  the  pressure  guess  is  good.  Othenvise,  a  local  pressure  correction  is 
computed  based  on  the  size  of  S^  and  the  procedure  is  continued  until  S  is  reduced 
to  a  satisfactory  value.  The  equation  of  state  is  used  (with  the  pressure  now  known)  to 
find  the  densities  for  the  next  time  step. 

Doria  outlined  in  [Ref  10:  pp.  26-32]  a  procedure  for  computing  the  local 
pressure  correction.  As  in  the  global  correction  the  actual  pressure  equals  a  guess  plus 
a  correction 

P  =  P'^  +  P'  (eqn  2.163) 
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Doria's  method  provides  a  finite  difference  equation  for  the  pressure  correction  similar 
in  form  to  the  finite  difference  conservation  equations.   The  equation  for  P'  is  : 


ApPp'  =  A£P£'  +  A^vAv    +  A_>^.P^^■'  4-  AgPs' 
+  AjPy'  +  AgPg'  -   S^p  AxAyAz 

where 

A£  =  Pg  (AyAz)^ 

-'^w  "  Pw  (^y^^^~ 

I  (Apa+  p^^.AxAyAz,At) 

A^-  =  p^  {AzAx)2 

/('"^P^hj+Uk  +  Pn^^^y^z,At) 

A3  =  P3  (AzAx)2 

/  (Apb  +  PjAxAyAz/At) 

Aj  =  Pj.  (AxAy)^ 

;(Apc-^^^l  +  p^AxAyAz/At) 


(eqn  2.164) 


(eqn  2.165) 


(eqn  2.166) 


(eqn  2.167) 


(eqn2.16S) 


(eqn  2.169) 


(eqn  2.170) 


Ag  =  pj3  (AxAy)- 

/  (Ape  +P|^AxAyAz;At) 

A^  =  A^  +  a'^^'  +  A^'  +  A^  4-  a'^  +  A^  (eqn  2.171) 

At  the  solid  boundaries  where  the  mass  flux  is  zero  the  coetlicient  A  in  the  P'  equation 
corresponding  to  that  boundaiw  is  set  equal  to  zero.    Once  the  P  correction  (P')  is 
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computed   and   added   to   p  '   new  velocities   maybe   computed    from   the   following 
equations: 

u  =  u""  +  u'  (eqn  2.172) 


V  =  V*  +  V'  (eqn  2.173) 


w  =  w    +  w  (eqn  2.174) 


where 


u'  =  (Pp'  -  P^^y')  AyAz  /  (Apa  +  p^^  AxAyAz/At)  (eqn  2.175) 


(Pp'  -  P3')  AzAx  /  (Apb  4-  p^  AxAyAz/At)  (eqn  2.176) 


w'  =  (Pp'  -  Pg')  AxAy  /  (Ape  +  p^  AxAyAz;At)  (eqn  2.177) 

Then  S^  is  computed.    If  it  is  small  enough  the  procedure  stops,  otherwise  a  new  P'  is 
computed  and  the  cycle  continues. 

I.        SOLUTION  PROCEDURE 

Figure  2.10  shows  a  How  chart  detailing  the  calculation  procedure.  As  shown  by 
this  flow  chart,  the  first  few  steps  set  up  the  initial  parameters.  The  view  factor  data 
must  be  read  in  from  a  file  because  the  view  factors  are  computed  in  a  separate 
program.  Subroutine  CALVIS  is  called  to  calculate  the  effective  viscosity  for  the  time 
step.  Every  ten  time  steps  the  energy  fluxes  to  the  interior  walls  of  the  vessel  are 
computed.  In  the  interim  the  last  value  calculated  is  used.  Subroutine  CALT  is  then 
called  to  determine  the  temperatures  in  the  interior  cavity  and  the  walls  of  the  vessel. 
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All  of  these  subroutines  use  an  implicit  technique  to  solve  the  matrices  formed  by 
employing  the  finite  difference  equations  on  each  cell.  Next  the  global  pressure 
correction  is  computed  followed  by  the  density.  Then  subroutines  are  called  to  find  the 
three  velocities  and  the  pressure  in  each  cell.  From  the  new  cell  pressures  a  corrected 
velocity  estimate  is  made.  With  these  velocities  the  continuity  equation  is  applied  to 
each  cell  and  the  residual  mass  or  the  error  in  the  cell  mass  balance  is  determined.  The 
sum  of  the  absolute  value  of  these  cell  residual  masses  is  called  the  residual  mass 
source  (Resorm).  The  size  of  this  term  is  really  a  check  of  the  global  and  local 
pressure  corrections.  If  the  Resorm  is  too  large  (greater  than  the  tolerance  e)  then  the 
solution  is  iterated.  In  order  to  minimize  the  CPU  time  required  to  run  the  program, 
the  CALT  subroutine  and  the  global  pressure  correction  are  not  computed  on  ever\' 
iteration.  In  the  present  scheme  where  the  maximum  number  of  iterations  is  9.  CALT 
is  only  run  on  the  first,  fourth,  and  seventh  iterations.  On  the  other  iterations  only  the 
velocities  and  the  pressure  are  recalculated.  When  the  Resorm  is  less  than  the 
tolerance  or  the  maximum  number  of  iterations  have  been  reached  the  program 
proceeds  to  the  next  time  step  or  stops  the  calculations  if  the  maximum  time  has  been 
reached. 
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Ficure  2.10     Flowchart  for  the  Nunicncal  Calculation  Procedure. 


56 


0 


J' 


4^ 


ITER   =    ITER   +    1 


I 


Call 
C2XUV,    CALU' 


I 


Call 

C.\L? 

^ 

r 

p  =  p*  ^  P' 

u  =  u*   ^  u' 

V   =    V*    +    v' 

w  =  w*   -(-  w' 

Yes 


No 


Save 
Results 


:es 


M  STOP 


© 


Fisurc  2.10     Continued. 
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III.  COMPARISON  OF  THE  NUMERICAL  RESULTS  WITH  THE 

EXPERIMENTAL  DATA 

In  an  attempt  to  validate  the  numerical  model  comparisons  were  rim  with 
experimental  data  provided  by  the  Naval  Research  Laboratorv-  for  the  Fire  I  Test 
Facility.  As  a  background  for  the  discussion  of  the  results,  the  data  necessary  to 
implement  the  numerical  model  in  a  particular  situation  is  presented.  This  is  followed 
by  a  specific  listing  of  the  parameters  used  for  the  test  case  in  which  the  numerical 
versus  experimental  results  were  compared.    Finally  the  analysis  of  the  results  is  made. 

A.  IMPLEMENTING  THE  NUMERICAL  MODEL 

When  modeling  a  specific  scenario  for  the  Fire  1  test  vessel  a  number  of 
parameters  must  be  known.  First  the  type  of  fuel  and  its  burn  rate  must  be  known. 
With  this  data  the  heat  release  rate  as  a  function  of  time  can  be  calculated.  Next  the 
location  of  the  fire  or  fires  in  the  vessel  is  required.  The  location  of  any  temporary 
instrumentation  such  as  the  movable  thermocouple  racks  must  also  be  recorded. 
Finally  ambient  conditions  which  consist  of  the  initial  pressure  and  temperature  in  the 
vessel  are  necessary.   With  this  information  the  simulation  may  be  run. 

B.  NUMERICAL  SIMULATION  PARAMETERS  AND  BACKGROUND  DATA 
FOR  THE  FIRE  TEST  CASE 

Details  of  the  actual  parameters  used  in  the  numerical  model  are  listed  in  Table 

2.    The  material  properties  and  thickness  of  the  wall  listed  in  the  table  are  for  the 

ASTM-285  Grade  C  steel  used  in  Fire  I.    In  order  to  best  simulate  the  actual  Fire  I 

geometry    with  a  rectangular  box  several  considerations  were  used  in  determining  the 

size  and  shape  of  the  box.    First  the  volume  of  the  box  was  taken  to  be  the  same  as  the 

volume  for  the  actual  text  vessel  (.11,640  ft  ).    Next  the  cross  sectional  area  of  the  box 

perpendicular   to    the   long   axis  was   the   same   as   the   cross    sectional   area    of  the 

cylindrical  section  of  Fire  I.    Using  these  two  parameters  as  guidelines  the  dimensions 

of  the  rectangular  box  work  out  to  be  17  ft  x   17  ft  x  40.2  ft.    The  height  of  17  ft  was 

also  selected  as  the  reference  length  H  which  was  used  in  non-dimensionalizing  the 

governing  equations.    The  grid  as  indicated  in  Table  2  by  the  values  of  Ax,  Ay,  and  Az 

was  relatively  course.    This  was  necessary  because  of  the  large  amount  of  CPU  time 

required  even  for  this  grid.    The  size  of  the  time  step  was  determined  by  selecting  a  At 
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which  permitted  performing  calculations  for  the  duration  of  the  experimental  fire  in  a 
reasonable  length  of  CPU  time  while  still  maintaining  stabilty  in  the  computational 
results.  Calculations  using  time  steps  of  .017  and  .OOSi  sec  did  not  show  any 
significant  deviation  from  the  laraer  value  of  .17  sec  which  was  used  for  the  bulk  of  the 
calculations. 


TABLE  2 

N'UMERICAL  MODEL  PAFL'WIETERS 

Ax  =  2  ft 

Ay  =   1.1  ft      Az  =   1.1  ft 

Total  number 

of  interior  cells                    5 

120  ( 

20 

X    16  X    16  ) 

Total  number 

of  wall  radiation  zones 

66 

Wall  Characteristics: 

Thickness         3  8" 

Cp^y                0.1  Btu/{lbm 

°F) 

k^y                  25  Btu/(hr  ft 

°F) 

p^y                   487  Ibm  (ft^) 

External  heat 

transfer  coefficient 

7.5  Btu,(  hr  ft^  ^F  ) 

Time  step 

.17  sec. 

The  background  data  is  shown  in  Table  3  for  the  actual  fire  with  which  the 
numerical  results  were  compared.  Heptane  has  a  heating  value  of  20854  Btu  Ibm 
[Ref  16:  p.  388].  As  shown  in  the  table  the  burn  rate  date  was  unavailable.  The  steps 
taken  to  overcome  this  difficulty  are  explained  in  detail  in  the  following  section.  The 
fire  was  extinguished  after  422  seconds  by  injecting  an  amount  of  nitrogen  suificient  to 
lower  the  partial  pressure  of  oxygen  below  the  critical  value  required  for  combustion. 
The  interior  setup  of  Fire  I  in  this  test  differed  from  the  numerical  model  because 
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Fire  I  had  a  grate  installed  in  the  north  end  of  the  tank  at  mid  height.  The  grate  did 
not  extend  into  the  spherical  endcap.  The  data  from  this  configuration  was  the  closest 
to  a  completely  empty  interior  that  was  available. 


TABLE  3 

FIRE  BACKGROUND  DATA 

Fuel 

Heptane 

f 

Burn  rate 

Unavailable 

Duration  of  the  Fire 

422  sec 

Initial  temperature 

35.7^C  or 

96'F 

Initial  pressure 

1  atm 

C.       RESULTS 

1.  Generating  the  Heat  Release  Rate 

Due  to  a  failure  of  the  instrument  which  measures  the  burn  rate  of  the  fuel  at 
the  Fire  I  facility  no  experimental  data  for  the  actual  heat  release  rate  was  available. 
Since  this  latter  quantity  is  a  necessar}'  input  to  the  program  the  lack  of  data  presented 
a  significant  problem.  A  temporary'  solution  pending  the  availabilty  of  the  actual  burn 
rate  data  was  developed.  The  guiding  principles  are  simple.  The  energy  input  to  the 
cavity  produces  three  elTects:  It  raises  the  pressure,  it  is  lost  by  conduction  through 
the  walls,  and  it  goes  into  the  motion  of  the  gas.  Because  of  the  low  natural 
convection  velocities  involved  the  last  efiect  as  a  percentage  of  the  input  energy  is 
small.  Also  initially  when  the  temperatures  inside  the  tank  are  close  to  the  external 
temperatures  the  conduction  loss  is  a  small  part  of  the  energy  loss.  Thus  for  a 
significant  interval  the  heat  input  is  almost  exclusively  used  in  raising  the  pressure. 
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Using  the  ideal  gas  law  P  =  pRT  and  P  =  pRT  if  p  and  R  are  constant.  Now 
making  the  gross  assumption  that  the  heat  input  is  uniform,  the  gas  density  remains 
constant  in  the  tank  because  the  enclosed  volume  of  gas  as  well  as  its  mass  is  constant. 
The  rate  of  heat  input  is  just  a  constant  times  T  and  therefore  the  heat  release  rate  is 
proportional  to  the  change  in  pressure  with  respect  to  time.  This  quantity  dP,dt  is 
available  experimentally  in  terms  of  the  slope  of  the  pressure  curve. 

The  scheme  to  artificially  develop  a  heat  release  curve  is  based  on  using  the 
experimental  pressure  curve  as  an  input.  From  the  slope  of  this  curve  a  first 
approximation  of  the  heat  input  is  determined.  Initially  for  the  reasons  mentioned 
above  this  guess  is  fairly  good  but  as  conduction  losses  mount  it  proves  inadequate. 
To  overcome  this  difficulty  the  initial  guess  is  corrected  so  that  the  calculated  pressure 
results  follow  the  experimental  values.  To  illustrate  how  this  works,  the  following 
example  is  provided.    Figure  3.1  shows  a  typical  experimental  pressure  curve.- 
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Figure  3.1     Typical  Experimental  Pressure  versus  Time  Curve. 
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Throughout  the  time  period  shown  the  actual  fire  strength  or  heat  input  is  increasing. 
Initially  the  slope  is  large  so  the  estimated  heat  input  is  large.  As  the  fire  progresses 
the  slope  falls  olf  and  more  of  the  heat  i^;  going  into  conduction  losses.  Thus  the 
increasing  total  fire  strength  is  not  rcllected  since  the  estimated  value  actually 
decreases.  To  account  for  this  error  in  heat  input  the  estimated  value  from  the  slope  is 
multiplied  by  a  correction  factor.  In  order  to  prevent  this  correction  factor  from 
becoming  too  large  an  additional  alteration  is  made.  This  can  best  be  explained  by 
lookine  at  Fisure  3.2. 


Figure  3.2     Comparison  of  Actual  to  E<^timated  Heat  Input  Curves. 

Curve  A  shows  the  estimated  heat  .input  corresponding  to  the  slope  of  Figure  3.1  while 
curve  B  is  the  actual  heat  input  required  by  the  numerical  model  to  match  the 
experimental  pressure  curve.  The  correction  (actor  is  the  number  at  each  time  step 
that  curve  A  must  be  multiplied  by  to  get  curve  B.  .At  the  later  time  steps  when  curve 
A  i«;  near  zero  due  to  the  small  slope  of  the  pressure  curve  this  correction  factor  must 
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be  ver>'  large.  To  limit  this  correction  to  a  more  reasonable  number  which  produces  a 
more  stable  result  curve  C  is  used  as  the  estimated  heat  input.  Figure  3.3  shows  a 
block  diagram  of  the  correction  routine.  The  correction  factor  was  computed  as 
follows: 

Correction  =   ^data-^comp    .    ^comp-^    comp    ^    ^  (eqn   3.2) 

p  P 

•^data  -^data 

where  Pcomo  ^^  ^^^  computed  pressure  and  P^cQ^p  is  the  computed  pressure  from  the 
last  time  step.  The  first  term  provides  a  position  error  type  of  correction.  If  the 
calculated  value  of  the  pressure  is  too  large  the  heat  input  is  reduced  or  vice  versa  if 
the  pressure  is  too  low.  The  second  term  provides  a  rate  error  correction  to  reduce 
oscillations.  If  the  correction  causes  the  computed  curve  to  approach  the  actual  curve 
too  fast  this  term  slows  the  rate  of  closure  to  prevent  overshooting. 

Figure  3.4  shows  the  computed  heat  input  curve.  Oscillations  are  obviously 
present.  These  are  due  to  the  stability  problems  that  arise  from  taking  the  derivative  of 
numerical  data  and  the  problems  with  the  correcting  scheme.  The  average  heat  release 
rate  for  the  time  period  shown  does  correspond  with  similar  data  available  from  NRL. 
Without  the  precise  burn  rate  data  this  is  the  best  method  available  to  provide  a  test  of 
the  program. 

2.  Numerical  Results  versus  Experimental  Data 

The  calculated  pressure  values  follow  the  experimental  data  ver\'  closely  as 
shown  in  Figure  3.5.  This  is  of  course  the  way  the  correction  scheme  was  designed  to 
work  so  such  a  comparison  is  not  a  validation  of  the  model. 

A  comparison  of  the  calculated  temperature  versus  the  actual  temperature  is 
the  only  method  now  available  for  comparison.  Before  discussing  the  graphs  showing 
the  temperature  plots  it  is  important  to  understand  how  the  numerically  determined 
temperatures  were  selected  to  correspond  with  the  locations  of  the  thermocouples  in 
the  actual  cylindrical; spherical  geometry.  A  point  at  the  center  of  each  geometrv'  was 
selected  as  a  reference.  Then  the  volume  in  the  actual  geometr\'  between  this  reference 
point  and  the  thermocouple  rack  was  determined.  A  length  corresponding  to  the  same 
volume  between  the  center  reference  point  in  the  rectangular  box  and  a  YZ  plane  was 
then  determined.  A  line  half  way  across  this  YZ  plane  pointing  up  in  the  Z  direction 
was  then  selected  as  corresponding  to  the  thermocouple  rack.    The  position  of  each 
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from  the  slope  of  the 
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corrected 


I 
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and  Temperature 
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Figure  3.3     Block  Diagram  for  the  Meat  Input  Correction  Routine. 
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Figure  3.4     Computed  Heat  Input. 
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Figure  3.5     Numerical  and  Experimental  Pressure  Curves. 
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thermocouple  in  the  actual  vessel  was  measured  as  a  ratio  of  its  height  from  the 
bottom  divided  by  the  total  height  at  that  point.  This  ratio  was  then  applied  to  the 
Une  representing  the  thermocouples  in  the  rectangular  box  and  the  temperatures  of  the 
grid  cell  m  which  the  themocouple  positions  were  located  was  the  temperature  used  for 
comparison.  Figure  3.6  shows  a  cross  sectional  view  of  the  rectangular  box  with  the 
location  of  the  fire  and  the  thermocouples  specified. 

In  order  to  compare  the  results  the  temperatures  from  three  thermocouples 
were  selected  and  plotted:  Thermocouple  #2  near  the  top,  thermocouple  #4  at  about 
3,4's  of  the  distance  from  the  bottom,  and  thermocouple  #6  about  halfway  up.  Figure 
3.7  shows  the  results  which  were  plotted  until  the  fire  was  extinguished  at  422  seconds. 
The  temperatures  computed  numerically  for  the  upper  region  of  the  tank  are 
significantly  higher  (about  IfO'C)  than  the  actual  temperatures.  In  the  mid  region  the 
computed  and  experimental  results  correspond  quite  well.  Results  in  the  lower  portion 
of  the  tank  were  not  compared  because  the  experimentel  and  numerically  computed 
temperatures  change  only  slightly  in  this  stagnant  region.  The  main  reason  for  the 
discrepancy  in  the  upper  region  is  the  difference  in  the  geometry  of  the  two  cases.  The 
actual  thermocouples  are  located  in  the  spherical  end  region  and  are  about  6  ft  from 
the  end  of  the  tank.  In  the  rectangular  geometry'  the  thermocouples  are  about  3  ft 
from  the  end  of  the  tank.  The  difference  is  illustrated  in  Figure  3.8.  The  problem  is 
that  the  upper  thermocouples  in  the  rectangular  geometrv'  are  in  the  region  where  the 
hot  gas  from  the  fire  turns  the  corner  and  returns  in  a  recirculating  fiow  to  the  center 
of  the  tank.  In  the  actual  case  the  hot  gas  follows  the  curvature  of  the  tank  in  the 
spherical  region  and  penetrates  further  before  returning.  Thus  the  hot  gas  fiows  above 
thermocouples  #2  and  #4  and  the  experimental  temperatures  are  significantly  lower. 
Since  no  velocity  measurements  are  made  in  the  tank  the  only  way  to  verify  this 
supposition  will  be  to  run  the  code  using  the  actual  geometry'. 

The  general  spacing  and  shape  of  the  experimental  and  numerical  curves  are 
similar.  Except  in  the  region  of  120-220  sec  the  spacing  between  the  numerical  and 
experimental  curves  for  thermocouples  #2  and  #4  is  similar.  All  the  curves  level  olT  at 
about  the  same  time.  This  indicates  that  the  same  time  is  predicted  for  a  quasi-steady 
state  where  heat  in  equals  heat  out  for  both  ihe  model  and  the  actual  vessel.  It  should 
also  be  noted  that  the  smooth  appearance  of  the  experimental  curves  is  due  to  their 
reconstruction  from  a  small  number  of  points  taken  from  the  original  experimental 
plots.  These  original  plots  show  much  more  evidence  of  turbulent  oscillations  as  seen 
in  Figure  3.9  from  NRL. 
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Figure  3.6     Fire  and  Thermocouple  Location 
in  thie  Rectangular  Model. 
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Figure  3.7     Temperature  Plots  for  Thermocouples  #2,  #4,  and  #6. 
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Fieure  3.9     Experimental  Temperature  Plot  for  Thermocouple  #2 

from  NRL. 
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Another  source  of  error  in  the  model  is  the  assumption  of  a  uniform  spacial 
heat  input.  In  a  real  fire  more  heat  is  added  in  the  middle  region  than  in  the  top  or 
bottom  portion  of  the  flame.  This  error  in  the  model  does  not  have  a  significant  effect 
on  the  results  shown  here  because  the  sensors  are  so  far  from  the  fire  that  temperature 
effects  due  to  non-uniform  heat  input  are  lost  in  the  turbulent  mixing  between  the  fire 
and  the  sensors.  For  data  from  a  sensor  close  to  the  fire  this  effect  should  be 
considered. 

3.  Velocity  Profile  and  Isotherm  Plots 

Velocity  profile  and  isotherm  plots  are  shown  for  the  XZ  and  YZ  planes  that 
intersect  the  fire.  Figure  3.10  shows  the  location  of  these  cross  sections.  Figures  3.11 
through  3.24  shown  XZ  and  YZ  plane  views  of  velocity  and  isotherm  plots  starting  at 
60  sec  and  ending  at  420  sec.  The  figures  at  12S  sec  show  the  plots  at  the  maximum 
lire  strength.  The  velocity  vector  scales  are  shown  on  each  figure  while  the 
temperatures  of  the  isotherms  are  the  same  for  all  the  plots.  As  might  be  expected  the 
plots  show  the  development  of  the  recirculating  fiow  with  time.  The  downward  fiow  of 
the  hot  gas  in  the  region  of  the  thermocouples  is  evident.  The  densely  packed 
isotherms  at  the  top  of  the  tank  indicate  the  high  heat  transfer  in  that  region.  The 
lowering  height  of  the  isotherms  show  the  penetration  of  heat  with  time  into  the  lower 
resions  of  the  tank. 
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Figure  3.16     Velocity  and  Isotherm  Plots  after  ISl  sec  on  the  YZ  Plane. 
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Figure  3.19     Velocity  and  Isotherm  Plots  after  299  sec  on  the  XZ  Plane. 
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Figure  3.20    Velocity  and  Isotherm  Plots  after  299  sec  on  the  YZ  Plane. 
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Figure  3.22     Velocity  and  Isotherm  Plots  after  364  sec  on  the  YZ  Plane. 
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Fisure  3.23     Velocity  and  Isotherm  Plots  after  420  sec  on  the  XZ  Plane. 


S6 


X 


.  \ 


t  r  r 


I     \ 


f     \ 


/ 

!   . 


/•    y 


*  >  f  »  f  ^ 


Q_: 


LO 

1 — 

c_ 

U- 

cr 

^^ 

c_ 

^> 

.  _J 

r'*CC 

:z 

■"LJ 

o 

CO 

_j 

>- 

^— 

1 1 

o  „ 

o 

-  •  l-J 

oo 

_l 

lU 

> 

_l 

d 

LU 

o: 

Ijj 

z: 
I — 
o 

CO 


ooooooooo 

—    —   '-   —  CJ  C-J  C^  C-'  CJ 

n    'I    II    II    11    II    M    It    n 


Fisure  3.24    Velocitv  and  Isotherm  Plots  after  420  sec  on  the  YZ  Plane. 
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IV.  CONCLUSION  AND  RECOMMENDATIONS 

A.  CONCLUSIONS 

A  number  of  conclusions  may  be  drawn  from  this  initial  simulation  of  the  Fire  I 
test  vessel  with  a  numerical  model: 

1)  Despite  a  lack  of  experimental  heat  release  rate  data  preliminary  validation  of. 
the  model  is  possible  by  numerically  generating  a  heat  release  curve  from  the 
other  data  that  was  available. 

2)  The  rectangular  model  does  not  predict  the  temperatures  accurately  in  the 
upper  region  of  the  tank  near  the  tank  endcaps  primarily  due  to  the  ditTerence 
in  the  geometries.  The  uncertainty  in  the  heat  release  rate  also  plays  a  role. 
Lower  in  the  tank  away  from  the  downward  recirculating  flow  the  calculated 
temperatures  are  more  accurate.  The  overall  shape  and  spacing  of  the  curves 
from  the  model  and  experimental  curves  are  similar. 

3)  The  expected  pattern  of  recirculating  flow  in  both  the  XZ  and  \7.  planes  is 
predicted  by  the  model. 

4)  Since  the  Fire  I  test  facility  has  no  velocity  sensors,  details  of  the  flow  field  are 
now  available  that  were  unavailable  before.  Thus  some  useful  information  on 
the  approximate  magnitude  of  the  velocities  and  the  height  of  the  recirculating 
flow  zone  may  be  extracted  from  the  model. 

5)  More  extensive  validation  <:>{  the  numerical  scheme  requires  the  availabilty  of 
heat  release  rate  data  and  the  change  to  the  actual  cylindrical  spherical 
seometrv  in  the  numerical  model. 

B.  RECOMMENDATIONS 

In  order  to  better  simulate  the  Fire  I  test  vessel  a  number  of  recommendations 
for  future  work  are  presented  here: 

1)  Vahdate  the  cylindrical,  spherical  numerical  model  with  data  from  as  many 
locations  away  from  the  endcaps  as  possible.  With  the  current  setup  the  two 
permanent  racks  of  thermocouples  and  radiometers  located  at  symmetrically 
opposite  ends  of  the  tank  provide  only  one  set  of  data  for  validation  purposes. 
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2)  Validate  the  model  with  experimental  heat  release  rate  data.  This  will  allow 
using  the  pressure  as  a  validating  parameter  rather  than  an  input.  The 
pressure  check,  is  much  more  desirable  because  it  is  a  global  check  unlike  the 
temperature  which  is  a  check  at  only  one  point  and  is  much  more  subject  to 
variations. 

3)  Add  more  components  to  the  numerical  model  including  decks  and 
recirculating  fans  to  better  simulate  the  tests  in  the  Fire  I  test  facility. 

4)  Add  an  ability  to  simulate  the  nitrogen  pressurization  capability  of  Fire  I. 
This  would  allow  an  excellent  ability  to  validate  the  conduction  model  after 
the  fire  is  out. 

5)  Incorporate  a  combustion  model  and  a  gas  radiation  model.  Both  of  these 
items  would  add  greatly  to  the  capability  of  the  model.  The  combustion 
model  in  particular  would  eliminate  the  need  for  specifying  the  flame  envelope 
and  the  distribution  of  the  heat  release  rates  from  combustion  throughout  the 
flame.  In  addition,  the  combustion  model  would  provide  a  basis  for  the 
oxygen  depletion  rate  and  eventually  the  effectiveness  of  a  nitrogen  gas 
extinguishing  system. 
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APPENDIX  A 

THE  FINITE  DIFFERENCE  EQUATIONS  IN  OTHER  COORDINATE 

SYSTEMS 

The  finite  difTerence  equations  for  the  numerical  model  in  cylindrical  and 
spherical  coordinates  are  presented  in  this  appendix.  One  important  difTerence  between 
these  equations  and  the  rectangular  equations  presented  earlier  is  the  use  of  a  non- 
uniform grid.  Specifically,  the  spacing  in  the  r-direction  is  variable.  This  was  done  to 
tr\'  to  keep  the  cells  as  square  shaped  as  possible  and  avoid  long  thin  cells  that  tend  to 
reduce  the  accuracy  of  the  program. 

1.        THE        FINITE        DIFFERENCE        EQUATIONS        IN        CYLINDRICAL 
COORDINATES 

In  the  cylindrical  geometry"  the  three  coordinates  are  r.  0.  and  z.    The  velocities  in 

these  directions  are  V^.,  V0..and  V^.   respectively.     Unlike  the  rectangular  geometry 

where  gravity  only  acts  in  the  z-direction,  here  it  acts  in  both  the  r  and  6  directions  so 

an  appropriate   term  is   included   in   the  r-momentum  and  0-momentum  equations. 

Continuity  Equation: 


(Pp-p^p)AV,At  +  (rgGg-r^^G^JAGAz 

+  (Gj^-G5)ArpAz  +  {G^-Gj5)rpArpAe  =  SmpAV 


(eqn  A.l) 


where  the  mass  fiuxes  at  the  boundaries  are: 


Gg  =  [(ArpP£  +  Arjrpp)  /  (Ar£  +  Arp)]   V^.  {eqn  A. 2) 


G^^,  =  [(Ar^yPp  +  Arpp^y)  /  (Arp  +  Ar^y)]   ^'r  .  ^^^^  ^-^^ 


Gn  =  -5  (pN,r  +  Pp)  Vq^  (eqn  A.4) 
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Gs  =    ^(Pp  +  Ps)'^'0s 


(eqn  A. 5) 


G^  =  .5  (pj  +  pp)  V. 


{eqn  A. 6) 


^b  =  -^(Pp  ^  pr) 


v_ 


(eqn  A. 7) 


Energy  Equation: 


[K\p  +   p^p  AV'At]  hp  =   ^A£  hg  +  ^.\y  h^y 

+  ^A>^-  hN^-  4-  h^g  hg  +  ^Aj  hy  4-  h^g  hg  +  ^Sp 


(eqn  A. 8) 


where 
h 


Ag  =   [.5{\G^\  -  Gg)  +  l/[(Re^Pr^)g(r£-rp)]}  v^^Q^z 


(eqn  A. 9) 


^A^V  =  {-^(l^wl  +  ^vv)  +  l/[(Re^Prtyrp-rw)]}  rw^Q^z  (eqn  A.IO) 


hA>^-  =  {.5(|G^|  -  G^)  +  l,.[(Re^Pr^)j,  fpAG]}  ArpAz 


(eqn  A.  11) 


^As  =   [.5{\G^\  4-  G^)  +   IKRe^Pr^j^rpAG]]  ArpAz 


(eqn  A.  12) 


^A-p  =   [.5(|G^|  -  Gj)  +  l[(Re^Pr^)^  Az])  rpArpAG 


(eqn  A.  13) 


Ag  =   {.5{\G^\  -  G^)  +   l,[(RejPr^)j^  Az]]  rpArpAG 
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(eqn  A.  14) 


^^p  =   {.5(|Gg|  +  Gg)rp-Ggrg  +  rp,[(Re^Pr^)g(r£-rp)])  A0Az 

+  {.5{|G,,,|  -  G,,,)rp  4-  G,,,r,^.  +  ip  [(Re^Pr^yrp-r^y)])  \Q\z^^'^'' ^'^'^ 

^Sp  =  p°p  h'p  AV  /  At  {eqn  A.16) 

The  momentum  equations  are  slightly  more  complex  because  of  the  staggered 
cells  and  the  additional  terms  introduced  by  the  shear  stress  tensor.  The  grid  for  the  r- 
momentum  equation  is  shifted  one  half  cell  in  the  negative  r-direction  and  quantities  in 
this  grid  are  designated  with  an  ^  superscript.  Similarly,  the  staggered  grids  for  the  0 
and  z-momentum  equations  are  shifted  one  half  cell  in  the  negative  6  and  z  directions 
from  the  basic  cell  and  these  are  designated  with  ^  and  '^  superscripts,  respectively. 
Because  of  the  complexity  of  the  equations,  variables  with  i.  j,  and  k  subscripts  are 
used  to  identify  the  grid  location  of  many  variables.  The  following  equations  define  the 
location  of  these  subscripted  variables: 


Pp  =  Pi^j,k  (eqnA.17) 


V       =  V  (eqnA.lS) 

w'  ^i.],k. 


^'es  =  Ve,^j,k  {eqnA.19) 


V_     =  V_  {eqn  A. 20) 

^b  \iX 


r„,  =  r-  (eqn  A.21) 
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rp  =  rj  (eqn  A. 22) 


Arp  =  Ar-  (eqn  A. 23) 

The  finite  dinerence  momentum  equations  are: 
R-M  omentum: 


[Apa  +   p^pa     AV^  ;  At]  V^p^  = 

Ae^  ^ga  ^  A^a  V^^^.,  +  A^^•a  V^^.^  "         (eqn  A.24) 


+   Aca  \\        +   Ara  V^        +   Ana  V^        +    Spa 
o        tea  1         rja  D        Fga  r 


a 


where 


A^a  =    {.5(|Gga|  -  Gga) 

+  l/[(Re^)ea  Arp]}  r^AGAz 

A^ya  =   (.5(|G^^,.-i|  +  G^^^) 

+  l/[(Re^)^^  Ar^y  ])  r^.^ABAz 

Ajv^ra  =    (.5(|Gj^a|  -  G^a) 

+  l;[(Re^)^ar,^Ae]}  ArpaAz 

Asa   =    {.SdG^al    +   G^a) 

+  l;[(Re^)^ar^^Ae]]  ArpaAz 

Aja   =    {.5(|G»a|  -  Gj.a) 

+  l/[(Re^)^a  Az]]  r^^.ArpaA0 

Aga   =    {.5(|Gj^a|  -  G^a) 


(eqn  A. 25) 


(eqn  A. 26) 


(eqn  A.27) 


(eqn  A.28) 


(eqn  A. 29) 


(eqn  A.31) 
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+   l/[(Re^)j,a  Az])  r^v^rpaAG 


Apa  =   (.5{|Gga|  +  Gga)r^^.  -  G^arp  +  r^^4{RePga  Arp  ]} 

X  AGAz 

(eqn  A.32) 

X  AGAz 

+    An -a   +    Aca   +    A-T-a   +    ''^R'' 

Spa  =  p'pa  Y\^^  AV^,  At  -  (rpPp  -  r^yPw)  ^^^^ 

-  (p'pa  -  pg    pa)  sinGp  AV^  '  F 

C  vv 

(eqn  A. 33) 

-  (^Gi.j,k-VGi-l.i,kXl''R^tV^^ 

+  (V^  -V^  )(l;Re.).aAG 

-  (V^        -V^  )(l/Re.kaAQ 
and  in  these  equations 

Arpa  =  (Arp  +  Ar^y)  /  2  (eqn  A.34) 


AV^  =  rpaArpaAGAz 

=  r^^,(Arp  +  Ar^y)  AGAz  /  2 


(eqn  A. 35) 


G,a  =  .5  pp  (r^V^^  +  r^^.V^^^)  /  rp  (eqn  A.36) 
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^w 


G^^a  =  [.5(p>^-  +  pp)  Ar^yVQ^ 

+  -^CPi-^j+l.k  +  Pw)^^pV0i.i.j+l,k]  {eqnA.38) 

/  (Arp  +  Ar^y) 

G^a  =  [.5(pp  +  Ps)  Ar^vV03 

+  -^iPw  +  Pi.i,j.i.k)  ^^pVei-i.j  J  (^^^  ^-39) 

/  (Arp  +  Ar^y) 
G^a  =  [.5(pj  +  pp)  Ar^yV^ 

/  (Arp  +  Ar^y) 
G^a  =  [.5(pp  +  pg)  Ar^^yV^^ 


/  (Arp  +  Ar^y) 


G-M  omentum: 

[Apb  +  p°pb  AV^'At]  Vgpb  = 

Agb  Vggb  4-  A^yb  VQ^yb  +  AN^-b  V0^^-b  (eqn  A.42) 

+   Acb  Vnob   +   Ajb  Vnjb   +    Anb  Vnnb     +    Spb 

where 


Agb  =   {.5(|Ggb|  -  Ggb) 

+  l,[(Re^)gb(Ar£  +  Arp);2  ]}  r^AGAz 
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(eqn  A.43) 


A^b  =   [.5(|G,,.b|  +  G^,b) 

+  1  [(Re^)^,b(Arp  +  Ar^yl  2  ]]  r^yAGAz 

Av^b  =   [.5(|G^b|  -  G^b) 

+  l;[(Re^)nb  rpAG  ]}  ArpAz 

Asb  =  {.odGjbl  +  Gjb) 

+  lilRe^j^b  rpAGj)  ArpAz 

Ajb  =   [.5(|Gjb|  -  G^b) 

+  1  [(Re^)^b  Az  ]]  rpArpAG 

Agb  =   {.5(|G|^b|  -  G|^b) 

+  l,[{Re^)j^b  Az]]  rpArpAG 


Apb 


Spb 


{.5(iGgb|  +  Ggb)rp-Ggbrg 

+  rp,[(Re^)gb(Ar£  +  Arp),  2  ]]  AGAz 

+  {.5{|G,,.b|  -  G,,.b)rp  -f  G,,.br,^ 

+  rp;[(Re^)^^b  {Arp  +  Ar^y);2  ])  AGAz 

+  A>,^-b  +  Agb  4-  A-pb  +  Agb 

p°pb  V^^Qpb  AV^,  At  -  (Pp  -  P5)  ArpAz 

-  (p>b  -  p£q  pb)  cosGp  AV^  /  F 

-  (^''Gs  -  ^'Gi,j-l,k)  (l''Ret)sb  ArpAz  /  (rpAG) 


(eqn  A.44) 


(eqn  A.45) 


(eqn  A. 46) 


(eqn  A. 47) 


(eqn  A.4S) 


(eqn  A.49) 


(eqn  A. 50) 
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and  in  these  equations 

Arpb  =  Arp  (eqn  A. 51) 


AV^  =  rpbArpbAGAz 

=  rpArpA0Az  =  AV 


(eqn  A. 52) 


Ggb  =   [[(Arpp£  +  Ar£pp)     (Arp  +  Ar£)]   V^ 

(eqn  A. 53} 

G^yb  =  ([(Ar^yPp  +  Arpp^y)  '  (^^V  ^  ^^P'J   ^'r  , 

(eqn  A. 54) 

G^b  =  .5  pp  (Vq^  +  Vq^)  (eqn  A.55) 


Ggb  =  .5ps(V05  +  VQ^,j-l,k)  (eqnA.56) 


G^b  =  [.5(p-r  +  Pp)  V^^  +  .5(p^_j.i^^+  1  +  Ps)  \,  j^^^  ^]  '  2  (eqn  A.57) 


G^b  =  [.5(pp  +  pg)  V^^  +  .5(ps  +  P,.j.i,k.i)  V^^^^_^  J  ■  2  (eqn  A.58) 

Z-M  omentum: 


[Ape  +  p>cAV^At]V^p^  = 
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^E^^zgc  +  A^ycV^^^^^  4-  Ax-cV 


S'^  1  Zjc  '^B^    ^Znc  ^p*^ 


where 


+   I[(RetV(Ar£  +  Arp),  2  ]}  r^AGAz 
Awe  =  {.5(|G^^.c)  4-  G^^.c) 

+   n(Re,V(Ar£-.  Arp)2]jr^^,.AeAz 

+  l/[(Rej)^c  rpAG  ]]  ArpAz 

+   UiRe^VrpAG]]  ArpAz 
Ajc  =  (.5(jG^c)  -  Gjc) 

+  I'KRetVAzJJrpArpAe 
Ab<=  =  i-SilG^cl  -  G{^c) 

+  l'[(RetVAz])rpArpAe 


Ape  =   {.5(|G,c|  +  G^c)rp  -  G^cr, 

■^  '■p'[(Ret)eC  (Arg  +  Arp)/2  Jj  AGAz 
+  [•5{|G^^.c|  -  G^^.c)rp  4-  G^^xr^^, 
+  rp;[(Re^\^,c(Arp  +  Ar^y);2  ]]  AGAz 
+   A^^■c  +  A3C  +  A^c  +  Age 


(eqn  A.59) 


(eqn  A. 60) 


(eqn  A.61) 


(eqn  A. 62) 


(eqn  A. 63) 


(eqn  A. 64) 


(eqn  A. 65) 


(eqn  A. 66) 
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Snc 


p^pc  Y\^^  AV^/At  -  {Pp  -  Pb)  rpApAz 

■^  (%,i  +  i,k  -%,j  +  i,k-i)(i^^^V^^p 

-  (%.j.k-Ve,j,k-i)(i'R^tVA'-p 

+  (V^   -  V^  )  (l;Re^)^c  rpArpAG  ,'  Az 
-   (^Zk-^Zm   J(l/Re,VrpArpAe 


(eqn  A. 67) 


and  in  these  equations 


Arpc  —  Afp 


{eqn  A.6S) 


AV*^  =  rpcArpcAGAz 

=  rpArpAGAz  =  AV 


(eqn  A.69) 


+  l.j,k-l 


Ggc  =  {[{Arppg  +  Ar^pp)  /  (Arp  +  Ar^)]  V^ 

+  f(A^pPi+l.i.k-l  +  Ar£PB)/(Arp  +  Ar^)]   V^^ 

G^^c  =   {[(Ary^-pp  +  Arpp^y)  /  (Ar-^y  +  Arp)]   V^. 

\v 

+  [(Ar^PB  +  A^pPi-l.j,k-l)  '  (A^V  "-  A^P)]   \-^j^.i  ])  ' 
G^c  =  [.5(Py  +  Pp)  Vq^ 

G3C  =  [.5(pp  -f-  P5)  Vq3 

+  -'(PB  +  P:,j-l,k-P%.j.k-l-]'2 


(eqn  A.70) 

]}  ri 


(eqn  A.71) 


(eqn  A.72) 


(eqn  A. 73) 


G,c  =  .5  Pp  (V^^  +  V^^^ 


(eqn  A.74) 
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Ag  =  pj  (ArpAz)^ 


(eqn  A. 75) 


Pressure  Equation: 

-^pPp'  =  -^ePe'  ^  --^wPw'  ^  A^^P^^-    +  AsPs' 
+  A-i-P-p-  ^  AePg'  -    S'^^p   AV 

where 

Ag  =  p,  (r,A0Az)2 

MApa^^^_.^^+PeAVa,+  l,^k;At) 

(Apa  +  p,^.AV^  At) 
'-^N  =  Pn  ^-^^P^z)- 


(eqn  A. 76) 


(eqn  A.77) 


/  (Apb  4-  p^AVb  At)  ^^^"^-^'^ 


(eqn  A.SO) 


Aj  =  p^  (rpArpAG)^ 

Ab  =  Pb  (i'pArpA0)2 

/  (Ape  +  pj^AV^-  At) 

Ap  =  Ag  +  A^y  +  A>^-  +  A3  +  A  J  +  A3  (eqn  A.S2) 


(eqn  A.Sl) 
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2.        THE  FINITE  DIFFERENCE  EQUATIONS  IN  SPHERICAL  COORDINATES 

In  the  spherical  system  the  three  coordinates  are  r.  9,  and  (p.  The  velocities  in 
these  directions  are  V  Vn.,  and  V  respectively.  Unlike  the  rectangular  geometr>' 
where  gravity  only  acted  in  the  z-direction,  here  it  acts  in  all  three  directions  so  an 
appropriate  term  is  included  in  the  r-momentum,  0-momentum.  and  (p-momentum 
equations. 


(Pp  -  p'p)AV/At  4-  (rg^Gg-r^^rG^^,)  sin(ppA0A(p 

+  (G^-GgjrpArpAcp  +  (Gj.sin(p^-G|^sin(p^)rpArpA0 
=  SmpAV 

where  the  mass  Huxes  at  the  boundaries  are: 


Gg  =  [(Arppg  4-  Ar^-pp) 


;  (Arg  4-  Arp)]  V^ 


G^  =  [{Ar^y^Pp  4-  Arpp^y) 


/  (Arp  +  Ar^y)]  V^ 


w 


(eqn  A. 83) 


(eqn  A.84) 


(eqn  A.85) 


^n  "  -^  (Pn  "^  Pp)  ^'Gn  ^^"^^  ''^•^^) 


Gg  =  .5  (Pp  4-  pg)  V03  (eqn  A.87) 


G^  =  .5(pj  +  Pp)  V(p^  (eqn  A.88) 


Gb  =  ■5(Pp  4-  Pg)  V^^  (eqnA.S9) 

Energy  Equation: 
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^  h. 


[^Ap  +  p^p  AV;  At]  hp  =  'K\^  h£  +  "A^v  ^W 

+  hA^.  h>,-  +  h^s  hs  4-  hA-^  hy  -f  hAg  hg  4-  ^Sp 


(eqn  A.90) 


where 


^Ag  =   {.5{|Ggl  -Gg)  +   l.[(Re^Pr^)g(r£-rp)]] 
X  r£^sin(ppA0A(p 

^A^y  =  {.5(|G^|  +  G,y)  +  l,[(Re^Pr^yrp-rw)]} 
X  r^Y"sin(ppA0A(p 

^Un^-  =   (.5(|GJ  -  G^)  +  1  [(Re^Pr^)^rpsin(ppAe]) 
X  rpArpA(p 

^Ag  =  (.5(1G3|  +  G^)  +  1  [(Re^Prj)3  rpsincppAG]] 
X  rpArpAcp 

^A-j-  =  [.5(|GJ  -  G^)  +  l,[(RejPr^)^  rpAcp]} 
X  rpArpsin(pjA9 

^Ag  =   (.5(|G^|  -  Gb)  +  l,[(Re^Pr^)b  rpAcp]} 
X  rpArpsin(pgA0 


h 


(eqn  A. 91) 


(eqn  A. 92) 


(eqn  A. 93) 


(eqn  A.94) 


(eqn  A.95) 


(eqn  A.96) 


Ao  =   (.5(iGgl  +  Gg)rp2-Ggrg-  +  rp^[(Rc^Pr^)g(r£-rp)]} 
X   sin(ppA0A{p 

4-  {.5(|G,,.|  -  G,,.)rp-  +  G^^sJ  +  rp',[(Re^Pr^),,,  (rp-r^y)]} 
X  sin(ppA0A(p 

+  [.5(|Gj|  +  G^)sin(p^  -  GjSin(p^  +  sin(pp,[(RejPr^)j  rpAcp]} 
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(eqn  A.97) 


X  rpArpAG 

4-  {.5{\G^\  -  G|3)sm(p^  +  G|3Sin(p|3  +  sincpp.  [(Re^Pr^^^^  rpA(p]} 
X  rpAipAG 

Sp  =  p°p  h°p  AV  /  At  (eqn  A. 98) 


he     _ 


The  momentum  equations  are  slightly  more  complex  because  of  the  staggered 
cells  and  the  additional  terms  introduced  by  the  shear  stress  tensor.  The  grid  for  the  r- 
momentum  equation  is  shifted  one  half  cell  in  the  negative  r-direction  and  quantities  in 
this  grid  are  designated  with  an  ^  superscript.  Similarly,  the  staggered  grids  for  the  G 
and  z-momentum  equations  are  shifted  one  half  cell  in  the  negative  9  and  z  directions 
from  the  basic  cell  and  these  are  designated  with  ^  and  *•'  superscripts,  respectively. 
Because  of  the  complexity  of  the  equations,  variables  with  i,  j,  and  k  subscripts  are 
used  to  identify  the  grid  location  of  many  variables.  The  following  equations  define  the 
location  of  these  subscripted  variables: 

Pp  =  p-j  |,  ■  ■  (eqn  A.99) 


V     2  =  V  (eqn  A.  100} 


Ves  =  %,j,k  (eqn  A.  101) 


V  =  Vj,k  (eqn  A.  102) 


T,,^  =  T;  (eqn  A.  103) 
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rp  =  rj  (eqn  A.  104) 


Arp  =  Ar^  (eqn  A.  105) 

The  finite  difierence  momentum  equations  are: 
R-M  omentum: 


[Apa   +    p^pa  AV^'At]  V^p^  = 

'^^E'-^  ^^2'  +  '^W-  %^'  +  A>,-a  V^^.^  (eqn  A.  106) 

where 


Apa  =   [.5(lGga|  -  Gga)  +   1  [(Re^)ga  Arp  ]] 
X  rg^sin(ppAGA(p 

A^ya  =   {.5(|G,,^a|  +  G^^^)  +  l.[(Re^)^^Ar^y]} 
X  r-_j-sin(ppA9A(p 

A^-a  =   (.5(lG^a|  -  G^a)  +  l;[(Re^)j^a  r^sm(ppAe  ]} 
X  r^^ArpaAcp 

Aga  =   (.SdG^al  +  G^a)  +   l.[(Re^)3a  r^^.smcppAG  ]} 
X  r^^.ArpaAcp 

Aja  =    i.5(|G^a|  -  G^a)  +    l/[(Re^)^a  r^^.A(p  ]} 
X  r^sin(pjArpaA0 

Aga  =   [.SdG^al  -  G^a)  +   l,[(Rej)ba  r^^.Acp  ]} 
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(eqn  A.107) 


(eqn  A.IOS) 


(eqn  A.109) 


(eqn  A.  110) 


(eqn  A. Ill) 


(eqn  A. 112) 


X  r^^,sin(pgArpaA0 

Ap  =   [.5(|Gga|  +  Gga)r^^,2  -  Ggarp^ 

+  r^^,^  [(Re^)ga  Arp  ]]  sin(|)pA0A(p 

2 
+  {.5(|G^^.a|  -  G^^.n)r-,|  +  G^^^r^Y 

+  r-.^/[(Rej\^,^  Ar^y2  ]}  sin(ppA0Aq) 

+  A^-a  +  A5a  (eqn  A.  11 3) 

p 

+  [.5(|G^a|  +  G,.a)sin(p     -  G^asinq)^ 


+ 


sin(pp.[(Re^)^.a  r^^.Aq)]]  r^^.ArpaA9 


p 

+  [.5{|G|^a|  -  G^a)sin(p^    +  G|_,asm(p^ 


+ 


sin(pp;[(Re^)|^a  rpAcp])  rpArpaAG 


Spa  =  p°pa  V\  ^  AV^'At 

-  (rp^Pp  -  rw^Pw)  sin(ppAeA(p 

-  (p°pa  -  p£    pax  sinGp  sincpp  AV^  /  F 

+  (r  -V     -  r    -V      ) 
^  e      r         w      r     •' 

X  (1/Re^)ga  sin(ppA0A(p  Arp 

-  (r   -^V      -  r-  i^V  ) 
^hv     r^,.    ^1-1      r^.i^-^j^^ 

X  (1/Re^)^^^  sin(ppA0A(p/Ar^^Y 

+  (%,j+l.k  -%-l,j+l,kXl^R^t)n''»^v^^P 

■   (^'0i.i.k-^'0l-l.j.kXl'^^t)s''>^v^^ 

+  (^9i,j,k+  1  -  Vl,j.k+  iXlRe^V  ^in^Pt^Q 

-  (^(pi,j,k  -  "^91-1,3,1^X1' Ret)b^  Vsin^b^e 

and  in  these  equations 
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(eqn  A.  114) 


Arpa  =  (Arp  +  Ar^y)  /  2 


(eqn  A.115) 


AV^  =  rpa2  sin(ppArpaA0A(p 


2  .: 


=  r^/  sincpp  (Arp  +  Ar^y^)  A0A(p  /  2 


G,a  =  .5  pp  (r,V      +  r,^,V     )  ;  rp 

c  vv 


(eqn  A.  116) 


(eqn  A.117) 


\r-^  =  .5  p^y  (r^,,V^^^_  +  'i-l^'r^.i^jj^)  '  '•W 


(eqn  A.118) 


G^a  =  [.5(p>^-  +  Pp)  Ar^Ven 

+  -'^Pi-i,j  +  i,k  +  Pw)^rp%-i,j  +  i,k] 

/  (Arp  +  Ar^y) 

G^a  =  [.5(pp  +  P3)  Ar^yVQ^ 

•     +  •5(Pw+  Pi-Lj-l,k^A^pVei-i,j,kl 
/  (Arp  +  Ary^) 


G^a 


[.5{pj  +  pp)  Ar^V^, 

+  •^(Pi-lo.k+l  +  Pw)^^pVl,J,k+l^ 

;  (Arp  +  Ar^y) 

G^a  =  [.5(pp  +  P3)  Ar^yV^^^ 

+  •5(Pw+  Pi-l,j.k-l)A^pVlO,kl 

/  (Arp  +  Ar^y) 


6- Momentum: 


(eqn  A.119) 


(eqn  A.  120) 


(eqn  A.  121) 


(eqn  A.  122) 
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[Apb  +  p"pb  AV*^  At]  Vgpb  = 

Agb  V0£b  4-  A^yb  V0^yb  +  AN^-b  VQ>s^-b  .  (eqn  A.  123) 

+   Acb  \  Qcb   +   A-rb  ^'orb   +   Anb  Vnijb     +    Spb 


where 


(eqn  A.  124) 


(eqn  A.  125) 


(eqn  A.  126) 


(eqn  A.  127) 


A£b  =   [.5(|G^b|  -  Ggb) 

+  l,[(Re^)gb  (Ar£  +  Arp),  2  ]]  r£-sin(ppA0A(p 

A^yb  =   [-^dG^^.b]  +  G^^.b) 

+  1  [(Re^)^^.b  (Arp  +  Ar^y)  2  ]]  r^y^sincppAGAq) 

Ax^-b  =   (.5(|G^b|  -  G^b) 

+  l;[(Re^)j^b  rpAe  ]]  rpArpAcp 

A3b  =   {.SdGgbl  +  G^b) 

+  1  [(Re^)sb  rpAO  ]}  rpArpAcp 

A-pb  =    {.5(|G^b|  -  G^b) 

+  l;[(Rej)^b  rpA(p  ]}  rpsin(pjArpA0 

Agb  =  {.5(|G^b|  -  Gj^b) 

+  l,[(Re^)^b  rpA(p  ]]  rpsincp^ArpAO 

Ap  =   {.5(|Ggb|  4-  Ggb)rp2  -  Ggbrg2 

+  rp^,[(Re^)gb  (Ar£  +  Arp);  2  ]}  sin(ppA0A(p 
+  {;5(|G,,.bl  -  G,^,.b)rp-  +  G^^br^2 
+  rp^,[(Re^\^.b  (Arp  4-  Ar^y)„2]}  sin(ppA0A(p 

+  A>^b  +  Agb  -  (eqn  A.  130) 
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(eqn  A.128) 


(eqn  A.  129) 


p 

+  {.5{lGjb|  +  G^b)sin(p^  -  G^.bsin(Pj. 

-*-  sincpp  [(Re^)j.b  r^^.Acp]]  rpArpAG 

p 
+  {.5{|G^b|  -  G|^b)sin<p^   +  G^bsin(p|^ 

+  sincpp,  [(Rej)|^b  r^.A(p]]  rpArpAG 

Spb  =  p'pb  V'gpb  AV^;Ai  -  (Pp  -  Pg)  rpArpAcp  , 

-  {p°pb  -  Pgq  pb^  cosGp  sin(pp  AV"^  /  F 

+  (^'en  '  ^'Gs^^^  ^^t^n''  I'P'^i'p^^  ■  (rpsincppAG) 

-  (Ves.V0^^^.^^^)(l;Rep3b  rpAr^Acp'CrpsincppAG) 
+  (\i.i.k+  1  -  \i.j-l.k+  iHl^  ^^t)t'^  siiKp^Arp 

-  (Vi.k- Vj-i^k^i^'R^V^^^^i^b^^p 

and  in  these  equations 

Arpb  =  Arp  (eqn  A. 132) 


(eqn  A.  131) 


AV^  =  rpbsin(ppArpbAGA(p 

=  rpsin(ppArpAGA(p  =  AV 

Ggb  =   [[(Arpp£  4-  Ar^pp)  ,  (Arp  +  Ar^)]   V^. 

+  [{Arpp^+l.j.l.k  +  Ar£Ps);(Arp  +  Arj:)]   V,._^^^._^^^ 


(eqn  A.  133) 


(eqn  A.  134) 

1 1    ■   7 


ij 


G^,,b  =   {[(Ar^ypp  +  Arpp^y)  /  (Ar^y  +  Arp)]   V^^^_ 

(eqn  A.  135) 
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+  l;[(Re^)5c  rpsincpi^AG  ])  rpArpAcp 

Ajc  =   i.5{|Gjci  -  Gjc) 

+  l,[(Re^)^c  rpA(p  ])  rpSin(pjArpA0 

Age  =   [.5(|G|5c|  -  G|^c) 


(eqn  A.144) 


A, 


Snc 


{.5{\G^c\  +  Ggc)rp2  -  Ggcr^2 

+  rp- [(Re^)gCiAr£  +  Arp),  2]|  siiKp^ASAq) 

+  [.5(lG,^.c|  -  G^^.c)rp-  +  G,^.cr,^r 

+  rp-[(Re^\^,c(Arp  +  Ar,^v);2  ]}  siiKp^AGAq) 

+  An^-c  +  Age 

+  (.5(iG^c|  +  G^ajsirKp"^  -  G^csincpg 

+  sincpj^  [{Re^)jc  rpA(p]]  rpArpAG 

+  (.5(|G^cl  -  G^c)sin(pj^.j  +  G^csmcpgb 

+  sin(pj^.^;[(Re^)j^c  rpAcp]]  rpArpAG 

p^c  V^^pc  AV^  At  -  (Pp  -  Pg)  rpArpAq) 

-   (P>c  -  P£q^pc)  [sinep,'ABS(sinep)]  cos(p^  AV^  /  F 

(^'ei.j,k-%,i,k-l)(l'^^tVArp 
{V^^  sin(p^  -  V^^^  sincpb  )  {l;Re^)^c  ArpAG     A(p 


+ 


(eqn  A.  145) 


(eqn  A.146) 


(eqn  A. 147) 


(eqn  A.148) 


+ 
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and  in  these  equations 

Arpc  =  Arp  {eqn  A.  149) 


(eqn  A.150) 


AV'^  =  rpc-sm(ppcArpc^e^(p  • 
=  rp^sin(P|^ArpA0A(p 

Ggc  =   ([(Arpp£  +  Argpp)  /  (Arp  4-  Ar^)]   V^^ 

G^^,c  =   [[(Ar^^yPp  +  Arpp^y)  ,  (Ar^^y  ^  Arp)]   V^. 

+  [(Ar^PB  +  ^rpp^-l,j,k-l)  '  (^^V  +  ^^p)]   ^'r,.  j^.^  i)  ''  ^  ^'"^'^  "^'^'^^ 


(eqn  A. 151) 


(eqn  A. 153) 


G^c  =    [.5(p^:   +    Pp)  Vq^ 

Gjc  =  [.5(pp  +  Ps)  V03 

+  -^(Pb  +  Pi.j-Lk-l)%.j>l-^'  ^ 
G^c  =  .5  Pp  (V(p^  +  V^^)  (eqn  A.  155) 


(eqn  A.  154) 


G^c  =  .5  Pb  (V(pj^  +  Vj,k-1  >  ^^^^  ^-^^'^^ 

Pressure  Equation: 


ApPp'  =  A^Pg'  +  A^Pw'  +  A>^Pn'  +  ^SPS' 
+  A-^Pt'  +  AbPb'  -   S'^^^p   AV 
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(eqn  A. 157) 


where 


An  = 


Aw  = 


Pe  (re^sin(ppA0A(p)2 


^N  "  Pn  (rpArpAq))- 

^S  "  Ps  (I'pArpAcp)^ 

/  (Apb  +  p  AV^■At) 


%  = 


Ab  = 


Pt  (rpSincp^ArpAe)^ 

/  (Ape  4-  p.AV^'-  •  ,        '\t\ 

^  i,j,k+I       ^^       i,j,k+rAt) 

P5  (rpsin(p|^ArpA0)2 
/  (Ape  +  Pj^AV^/At) 


Ap  =  Ap  +  Aw  +  A 


^\  +  A3  +  Aj  +  Ag 


(eqn  A.  158) 


(eqn  A.  159) 


(eqn  A.  160) 


(eqn  A.161) 


(eqn  A.  162) 


(eqn  A.163) 


(eqn  A.  164) 
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APPENDIX  B 
FORTRAN  LISTING  OF  THE  VIEW  FACTOR  PROGRAM 


c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c   ^^^ 

c 
c 
c 
c 


*   COMPUTER  PROGRAM  FOR  THREE-DIMENSIONAL  SURFACE  RADIATION   * 
FOR  NAVY  STORAGE  TANK  NUMERICAL  SIMULATION 


*:-k-k 


c 
c 
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7^ 

■k 

A  GENERAL  FORTRAN  PROGRAM  TO  CALCULATE  3-DIMEMSIONAL  SURFACE 
RADIATION  VIEW  FACTOR  MATRIX  COEFFICIENT 

THE  SYSTEM  INCLUDES  AN  ENCLOSURE  AND  ANY  NUMBER  OF  HEAT  SOURCES 
OF  SINKS  INSIDE  THE  ENCLOSURE 

IMPLICIT  REAL=^8(A-H,0-Z) 

C0MM0N/BL4/  WVFLR(3 , 3 , 3 , 3) , WVFLRE (3 , 3 ,4 , 3) , WVFLF(3 , 3 ,4 , 3) , 
"  '  "         3,3,4,3  ■        '    ' 


&  WVFLT(3 
&  WVFRT(3 
&  WVFFT(4 
&  WVFBL  4 


,WVFRRE 
,WVFRL 


3,3,3,3, 


,WVFRF(3 

,WVFFL(4, 

,WVFFR(4, 

,WVFBF(4, 
>^  ,,,.^x.v^  ^  -,  -/  ,,,.x...^v^  ^,.,^,    WVFTF(4,3,4  3y  ,,,,.  ^..v -/-/-/-'/ - 
&  WVFRET(4,3,4,3j  ,  WVFREF(4  ,  3  ,4  ,  3)  ,  WVFRER(4  ^  3 ',  3  ,  3)  ,  WVFTB(4  '  3  !  4  ,  3  )  , 
&  WVFREL(4,3,3,3),WVFREB(4,3,4,3) , WVFLB(3 , 3 , 4 , 3) 


3 

3 

3 

,3 


,WVFFRE(4,3,4,3 
,WVFBRE(4,3,4,3; 


3 
3 
3 
3 


&  WVFTL  ( 4  ,  3  ,  3  ,  3  )  •,  WVFTRE  (4,3,4,3, 


,WVFRB(3 
,WVFFB(4 
,WVFBT  4 
,WVFBR  4, 


3' 
3' 
3' 
3 


,WVFTR(4,3,3,3, 


C0MM0N/BL5/ 
&  VFHSR(3,3) ,VFHSF(4,3) ,VFHSRE(4,3) ,VFHST(4,3) ,VFHSB(4,3 
&  VFRHS(3,3) ,VFFHS(4,3) ,VFREHS(4,3) ,VFTHS(4,3) ,VFBHS(4,3 
&  VFHSL(3,3) ,VFLHS(3,3) 

COMMON  /BL6/  VFLHT(3 , 3) , VFRHT(3 , 3) , VFFHT(4 , 3) , VFREHT(4 , 3) , 
&  VFFHR(3,3) ,VFRHR(3,3) , VFREHR(4 , 3 ) , VFTHR(4 , 3 ) , VFBHR(4 , 3) , 
&  VFLHL(3,3) ,VFFHL(4,3) ,VFREHL(4,3) ,VFTHL(4,3) ,VFBHL(4,3) , 
&  VFLHRE(3,3) ,VFRHRE(3.3) ,VREHRE(4,3) ,VFTHRE(4,3) ,VFBHRE(4,3) , 
&  VFLHF(3,3) ,VFRHF(3,3) ,VFFHF(3,3) , VFTHF(4 , 3) , VFBHF(4 , 3) , 
&  VFLHB  3,3) ,VFRHB(3,3) ,VFFHB(4,3) , VFREHB(4 , 3) , VFBHB(4 , 3) , 
&  VFTHT(4,3) 

COMMON  /BL7/  VFHTL(3 , 3 ) , VFHTR(3 , 3) , VFHTF(4 , 3) , VFHTRE (4 , 3) , 
&  VFHRF(3,3) ,VFHRR(3,3) ,VFHRRE(4,3) , VFHRT(4 , 3 ) , VFHRB(4 , 3 ) , 
&  VFHLL(3,3) .VFHLF(4,3) ,VFHLRE(4,3) ,VFHLT(4,3) ,VFHLB(4,3) , 
&  VFHREL(3,3) ,VFHRER(3,3) ,VHRERE(4,3) ,VFHRET(4,3) ,VFHREB(4,3) , 
&  VFHFL(3,3) ,VFHFR(3,3) ,VFHFF(3,3) , VFHFT(4 , 3 ) , VFHFB(4 , 3 ) , 
&  VFHBL(3,3) ,VFHBR(3,3) ,VFHBF(4,3) ,VFHBRE(4,3) ,VFHBB(4,3) , 
&  VFHTT(4,3) 

COMMON  /BL8/  X(22) , Y( 18) ,Z(18) ,NOD(22 , 18 , 18) , 
&     RX(5),RY(4) ,RZ(4),AREA(67),ZX(5),ZY(4) ,ZZ(4) 

COMMON  /BL9/  SWVFRE  (4  ,  3  )  ,  SWVFLH  ,  3)  ,  SWVFR(3  ,  3  )  ,  SWVFF(4  ,  3  )  , 
&  SWVFT(4,3) ,SWVFB(4,3) 

COMMON  /BLIO/  NZ ,DX ,DY,DZ ,DXY , DYZ ,DZX , WC ,DC ,HC 

COMMON  /BLl/  NI,NJ,NK,NIM1,NJM1,NKM1,NIM2,NJM2,NKM2, 
&  MI , MJ , MK , MI I , MJ J , MKK , MIM , MIP , MJM , MJP , MKM , MKP , 
&  MIIM,MIIP,MJJM,MJJP,MKKM,MKKP, 
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c 

c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


&   IREGNl , IREGM2 , IREGM3 , IREGN4 , IREGN5 , IREGM6 , IREGN7 , 
&  MREGNl , MREGN2 , MREGN3 , MREGM4 , MREGN5 , MREGN6 , MREGN7 

COMMON  /BL2/  IB , IE , IBMl , IBPl , lEMl , lEPl , 
&  JB,JE,JBM1,JBP1, JEHl, JEPl, 

&  KB,KE,KBH1,KBP1,KEH1,KEP1 

COMMON/BLll/  MIIZ(9) ,MJJZ(9) ,MKKZ(9) , IS(6) ,LTYPE(9,6) , 
&  LI(9) ,LJ(9) ,LK(9) ,AYZ(9) , AXY(9 ) , AZX(9 ) , 

&  NHSZ,ITHIM(9) , JTHIN(9 ) , KTHIN( 9 ) , 

&  IHSB(9) ,NHSW(9) , JHSB(9) ,NHSD(9) ,KHSB(9) ,NHSH(9) 

C0MM0N/BL3/   VFMXR(67,67) , SMXVFW(67 ) , SMXVFH(67 ) 

**'^  THE  COORDINATE  SYSTEM  IS  AS  FOLLOWS; 
X-DIRECTION  IS  FROM  LEFT   TO   RIGHT 
Y-DIRECTION  IS  FROM  REAR   TO   FRONT 
Z-DIRECTION  IS  FROM  BOTTOM  TO  TOP 
NEGATIVE  GRAVITY,  -G  ,  IS  IN  POSITIVE  Z-DIRECTION 

^'^'^THERE  ARE  6  INTERIOR  WALLS  AND  EACH  WALL  IS  DIVIDED  INTO  CERTAIN 

WALL  ZONES 
^^■^   TO  DISTINGUISH  INTERIOR  WALLS, 


EACH  WALL  HAS 


LEFT   WALL  IS  REGION 

RIGHT  WALL  IS  REGION 

REAR   WALL  IS  REGION 

FRONT  WALL  IS  REGION 

BOTTOM  WALL  IS  REGION 

TOP   WALL  IS  REGION 

ir-k-k 

HEAT  SOURCE 


1 ,  REPRESENTED  BY  LETTER 

2,  REPRESENTED  BY  LETTER 

3,  REPRESENTED  BY  LETTER 

4,  REPRESENTED  BY  LETTER 

5,  REPRESENTED  BY  LETTER 

6,  REPRESENTED  BY  LETTER 


A  DESIGNATED  SYMBOL 
L 
R 
RE 

F 
B 
T 


IS  REGION  7,  REPRESENTED  BY  LETTER  HS 


IF  THE 

LEFT 

RIGHT 

REAR 

FRONT 

BOTTOM 

TOP 


HEAT  SOURCE  IS  TREATED  AS  A 
SURFACE  OF  THE  HEAT  SOURCE 

. SURFACE  OF  THE  HEAT  SOURCE 
SURFACE  OF  THE  HEAT  SOURCE 
SURFACE  OF  THE  HEAT  SOURCE 
SURFACE  OF  THE  HEAT  SOURCE 
SURFACE  OF  THE  HEAT  SOURCE 


SURFACES, 
BY  LETTER 
BY  LETTER 


SUBJECT  WITH  6 

IS  REPRESENTED 

IS  REPRESENTED 

IS  REPRESENTED  BY  LETTER 

IS  REPRESENTED  BY  LETTER 

IS  REPRESENTED  BY  LETTER 

IS  REPRESENTED  BY  LETTER 


THEN 
HL 
HR 
HRE 
HF 
HB 
HT 


■k-k-k 


kkk 


IF  ONLY  TWO  SURFACES  ARE  CONSIDERED  FOR  HEAT  SOURCE  THEN  CHOOSE 
TWO  OPPOSITE  SURFACES  SUCH  AS  HL  AND  HR  AND  ASSUME  ZERO  DISTANCE 
BETWEEN  THESE  TWO  SURFACES. 

VIEW  FACTOR  CAN  BE  SORTED  AS 
INTERIOR  WALL  SURFACE  VS  WALL  SURFACE 
INTERIOR  WALL  SURFACE  VS  HEAT  SOURCE  SURFACE 
INTERIOR  WALL  SURFACE  VS  WHOLE  HEAT  SOURCE 


INTO  SERVERAL  WALL  ZONES 
,  LOCATED  AT  X=0  OR  1=1, 
DIRECTION  AND  MK  DIVISIONS  IN 
IS  MJ^MK  ZONES  ON  LEFT  WALL 


***  EACH  WALL  SURFACE   IS  DIVIDED 

FOR  INSTANCE,  THE  LEFT  WALL  L 

IT  CAN  HAVE  MJ  DIVISIONS  IN  J 

K  DIRECTION,  THEREFORE,  THERE 

^■^*   ACCORDINGLY, 

RIGHT   WALL  HAS  MJl^MKl  ZONES  AND  MJl  AND  MJ  MAY  HAVE  EQUAL  NO. 

AND  MKl  AND  MK  MAY  HAVE  EQUAL  NO. 
REAR  WALL  HAS  MI  *MK2  ZONES  AND  MK2  AND  MK  MAY  HAVE  EOUAL  NO. 
FRONT   WALL  HAS  MI1*MK3  ZONES  AND  Mil  AND  MI  MAY  HAVE  EQUAL  NO. 

AND  MK3  AND  MK  MAY  HAVE  EQUAL  NO. 
BOTTOM  WALL  HAS  MI2*MJ2  ZONES  AND  MI2  AND  MI  MAY  HAVE  EQUAL  NO. 

AND  MJ2  AND  MJ  HAY  HAVE  EOUAL  NO. 
TOP     WALL  HAS  MI3^MJ3  ZONES  AND  MI3  AND  MI  MAY  HAVE  EQUAL  NO. 

AND  MJ3  AND  MJ  MAY  HAVE  EQUAL  NO. 

kkk   NORMALLY  THE  WALL  ZONES  IS  DIVIDED  IN  SUCH  WAY  SO  THE  HEAT 
SOURCE  IS  ALIGNED  WITH  ONE  OR  FEW  WALL  ZONES 
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C  ***  AFTER  THE  WALL  ZONES  ARE  ASSIGNED  THEN  ALL  ZONES  IN  ALL 

C     SURFACES  ARE  GIVEN  AN  INDEX  NUMBER 

C 

C  **'»^IF  THERE  ARE  MI  DIVISIONS  IN  X-DIRECTION 


WALL 


MJ  DIVISIONS  IN  Y-DIRECTION 
AND  MK  DIVISIONS  IN  Z-DIRECTION,  THEN  FOR  A  GENERAL  CASE 


THERE  ARE  MJ^MK  ZONES  IN  LEFT  WALL  AND  INDEXED  FROM  1  TO  MJ^^MK 
MJ^MK  ZONES  IN  R   WALL  AND  INDEXED  FROM  MJ^MK+1    TO  2*MJ^MK 
MI^MK  ZONES  IN  RE  WALL  AND  INDEXED  FROM  2^MJ*MK+1  TO  2*MJ'^MK+MI*MK 
MI*MK  ZONES  IN  F   WALL  AND  INDEXED  FROM  2^MJ^MK+MI*MK+1  TO 

2'*^(MI+MJ)'^MK 
MI^MJ  ZONES  IN  B  WALL  AND  INDEXED  FROM  2^  MI+MJ)*MK  +1  TO 

2*(MI+MJ)*MK+MI*MK 
MI*MJ  ZONES  IN  T  WALL  AND  INDEXED  FROM  2* ( MI+MJ)^MK+MI^MK+1  TO 

2*(MI^MJ+MI^MK+MJ*MK) 
C  ***    FINALLY  THE  HEAT  SOURCE  IS  THE  LAST  ZONE  AND  INDEXED  AS 
C  2'^(MI^MJ+MJ=^MK+MI*MK)  +  1 

C 
C  **^  IF  MI=4,  MJ=3  AND  MK=3 ,  THEN  THERE  ARE  2*(4*3+3*3+3'^4)=66 


C 
C 

C 

c 
c 
c 
c 
c 
c 
c 
c 

C  ***   THE  INDEX  OF  EACH  ZONE  IN  A  WALL  OF  4'^3  ZONES  IS  ASSIGNED  AS 
C 

c 
c 

C       (1,2)  (2,2)  (3,2)  (4,2)    SAME  LEVEL  AS  HEAT  SOURCE,  KHB  TO  KHT 

C 

C       (1,1)  (2,1)  (3,1)  (4,1)    BELOW  THE  HEAT  SOURCE, 

C 

C 


WALL  SURFACE  ZONES  AND  1  HEAT  SOURCE  ZONE 

IF  WE  DIVIDE  ONE  WALL  SURFACE  INTO  4'^3  ZONES,  AND  THE  HEAT  SOURCE 
CAN  BE  VIEWED  THROUGH  THE  WALL.  IT  IS  SEEN  TO  OCCUPIED  THE  ZONE 
OF  (2,2)  . 

IF  THE  RADIATION  ZONE  OF  HEAT  SOURCE  IS  TREATED  AS  AN  INFINITE 
THIN  SHEET  OF  PLANE  THEN  WE  HAVE  ONLY  TWO  SURFACES  IN  THE  HEAT 
SOURCE  AND  IT  CAN  BE  CONSIDERED  AT  THE  INTER  FACE  OF  ZONE  (2,2) 
AND  (3,2)  AND  THE  WHOLE  AREA  FACES  TO  THE  LEFT  TANK  WALL  AT  THE 
ZONE  OF  MJ=2  AND  MK=2. 


UTIT 


12731 
12727 

T27Ty 


13737 

T372T 
13717 


T4737 


ABOVE  THE  HEAT  SOURCE, 


KHT  TO  NK 


2,   TO  KHB 


CWALL  TO  1ST  ZONE,  LEFT  OF  HEAT  SOURCE,  RIGHT  OF  HEAT  SOURCE 
C 

c 
c 
c 

J=L  ,R  ,RE  ,F  ,B  ,T  ,  HS .   TOTAL  IS  NZ  TERM 


TO  AI^JOTHER  SIDE  OF  THE  WALL 
THE  STRUCTURE  OF  MATRIX  IS 


4TH  ZONE 


I=L 

I=R 

I=RE 

I=F 

I=B 

I=T 

I=HS 


C 

C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

C  **'^  ALL  VARIABLE  NAMES  USED  IN  THE  INPUT  DATA  STATEMENT  ARE  THE  SAME 

C      ONES  USED  IN  MAIN  PROGRAM 

C 

C  ***  WC  :  WIDTH  OF  THE  TANK,  IN  X-DIRECTION,  (FT) 

C     DC  :  DEPTH  OF  THE  TANK,  IN  Y-DIRECTION,  (FT) 


THE  ARRAY 

IS  LAID  OUT  AS  FOLLOWS 

L(i,i)(i,: 

Z),..(1,MK),(2.1)...(2,MK),(MJ,1)..(MJ,MK) 

R 

IS 

FROM  (1,1 
FROM  (1,1) 

.  .  .TO.  .  .  (MJ,MK)  or  FROM  MJ^IK+l    TO  2^MJ^MK 
.  .  .TO.  .  .(MI,MK)  OR  FROM  2*MJ'^MK+1  TO  2*MJ*HK 

RE 

IS 

+MI*MK 

F 

IS 

FROM  (1,1) 

.  .  .TO.  .  .  (MI,MK)  OR  FROM  2'^(MJ'^MK; 

2^(HI+MJ 

+MI'^MK+1  TO 
'^MK 

B 

IS 

FROM  (1,1) 

. . .TO. . .(MI,MJ)  OR  FROM  2*  MI+MJ 

2^(MI+MJ 

*MK+1  TO 
*MK+MI*MJ 

T 

IS 

FROM  (1,1) 

. . .TO. . .(MI,MJ)  OR  FROM  2*(MI^MJ) 

*MK+MI'^HJ+1 

TO  2*(MI'^MJ+MJ^MK+MK^MI) 

HS 

HAS  1  ZONE 

TO  2*(MI*MK+MJ'^MK+MI'^MJ)  +  1 

i(-k-k-ki^i^iK-k-ki':-kir:k-k7^-k-k-k-ki';ir:ki^-kiKi':i^i(i(:ki^-ki^-ki<:-k-k9^-k7^i^-k-k:k-k:k-fK 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


i^:k:k 


■k:k-k 


■k-k:k 


HC 
MI 
NJ 
NK 


AREA ( )  : 
MH5Z  :  # 
LTYPE ( ) 
IHSB  " 
JHSB 
KHSB 
MHSW 
MHSD 
NHSH 
MZ  : 


HEIGHT  OF  THE  TANK,  IN  Z-DIRECTION,  (FT) 
TOTAL  NUMBER  CELLS  IN  X-DIRECTION 
TOTAL  NUMBER  CELLS  IN  Y-DIRECTION 
TOTAL  NUMBER  CELLS  IN  Z-DIRECTION 

SURFACE  AREA  OF  RADIATION  ZONES  (FT'^*2) 

OF  HEAT  SOURCES 
TYPE  OF  HEAT  SOURCE  SURFACES 

STARTING  CELL  NUMBER  FOR  EACH 


NUMBER  OF  CELLS  FOR  EACH  HEAT 


TOTAL  NUMBER  OF  SURFACE  ZONES  USED 
NUMBER  OF  ZONES  IN  X-DIRECTION 

Y-DIRECTION 

Z-DIRECTION 

NUMBER  OF  CELLS  FOR  EACH  ZONE  IN 


1  FOR   ACTIVE 
HEAT  SOURCE  IN  X-DIRECTION 
Y-DIRECTION 
Z-DIRECTION 
SOURCE  IN  X-DIRECTION 
Y-DIRECTION 
Z-DIRECTION 
IN  RADIATION  EXCHANGE 


X-DIRECTION 
Y-DIRECTION 
Z-DIRECTION 
ZONE  NUMBER  IN  X 
ZONE  NUMBER  IN 
ZONE  NUMBER  IN 
ZERO  OR  1  ZONE  SPACE  BETWEEN  TWO 
SIDES  OF  A  HEAT  SOURCE/SINK  IN 
X;(I),  Y;(J),  AND  Z;(K)  DIRECTIONS 
IF  ITHIN=JTHIN=KTHIN=1  MEANS  A  RECTANGULAR  SHAPE 
SOURCE/SINK 

IF  ITHIN=JTHIN=KTHIN=0  MEANS  AN  INFINITE  THIN  SHEET 
HEAT  SOURCE/SINK  IN  ALL  3  DIMENSIONS 


LOCATION  OF  THE  HEAT  SOURCE, 


0  OR  1 


DIRECTION 
Y-DIRECTION 
Z-DIRECTION 
OPPOSITE 


HEAT 


OF 


$$$$$$$$$$$$$$$$$$$$s$$$$$$$$$$$$$$$$$$$$$$s$$$$$$$$$$$$$$$$s$$$$$$ 

$   USER  SHOULD  ASSIGN  VALUES  FOR  MI,MJ,MK,  MIIZ( ) ,MJJZ( ) ,  MKKZ(),$ 
$  WC,DC,HC;  NI,NJ,NK,  $ 

$  NHSZ,  LTYPE ()  AND  $ 

$  IHSB, JHSB, KHSB,  NHSW,NHSD ,NHSH 

$   THESE  VARIABLES. WILL  BE  USED  IN  MAIN  PROGRAM  ALSO  $ 

$$$$$$$$$$$S$$$5$$$$$$$$$$$$$$S$$$$$$$$$$$$$$$$$$$S$$$$$$$$$$$$$$$$ 

■^^^   $$$$$$$$$$$$$$$$$$$ 

WC=40.2 

DC=17. 

HC=17. 

NI  =  22 

NJ=18 

NK=18 

MI=4 

MJ=3 

MK=3 

NHSZ=1 

LTYPE (1,1)=1 

LTYPE(1,2)=1 

LTYPE(1,3)=1 

LTYPE (1,4  =1 

LTYPE  1,5) =1 

LTYPE(1,6)=1 

MIIZ(1)=2 

MJJZ(1)=2 

MKKZ(1)=2 
***  $$$$$$$$$$$$$$$$$$$$$$ 

***  READ  INPUT  DATA 


***  READ  #  1 
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c 
c 
c 
c 


c 
c 
c 
c 
c 
c 

c 
c 

c 
c 

c 
c 

c 
c 


READ(5,*)  WC,DC,HC,NI,NJ,NK 

WRITE (6, 21)  WC,DC,HC,NI,NJ,MK 
21  F0RMAT(5X, 'WC  =',E11.4,'  FT',3X,'DC  =',E11.4,'  FT',3X, 
&     ' HC  = '  Ell .4  '  FT '  / 
&  5X,'NI  =''I3,6X''NJ  =M3,6X,'NK  =',I3,//) 

^^*   READ  #  2 


READ (5,*)  NHSZ 

WRITE (6, 31)  NHSZ 
31  FORMAT (5X, 'TOTAL  NUMBER  OF  HEAT  SOURCES,  NHSZ  :',12,//) 

k-kkkkk    IF  NHS2  >  1,  THEN  READ  NHSZ  SET  OF  CARDS  FOR  READ  GROUP  2  TO  4 

DO  11  1=1, NHSZ 

***  READ  #  3 


READ(5,'^)  LTYFE(I,1)  ,LTYPE(I,2)  ,LTYPE(I,3)  ,LTYPE(I,4)  ,LTYPE(I,5)  , 
&  LTYPE(I,6, 

■^■^*   READ  #  4 


*^^   READ  POSITION  AND  SIZD  DATA  FOR  HEAT  SOURCE 

READ(5,*)  IHSB(I),NHSW(I),JHSB(I),NHSD(I),KHSB(I),NHSH(I) 
***  READ  #  5 


READ (5,*)  MIIZ(I),MJJZ(I),MKKZ(I) 
***  READ  #  6 


READ(5,*)  ITHIN(I) , JTHIN(I) ,KTHIN(I) 

WRITE (6,12)  I , LTYPE (1,1), LTYPE (1,2), LTYPE (1,3), LTYPE (1,4), 
&  LTYPE (1,5), LTYPE (1,6), IHSB ( I ) , JHSB ( I ) , KHSB ( I ) , 

&  NHSW ( I ) , NHSD ( I ) , NHSH ( I ) , MI IZ ( I ) , M J JZ ( I ) , MKKZ ( I ) , 

&  ITHIN(I) ,JTHIN(I) ,KTHIN(I) 

12   FORMAT (5X, 'HEAT  SOURCE  NUMBER  :',I2,//, 

ITS  6  SURFACE  TYPIES  ARE  :  LTYPE ( I )  =',612,//, 

LOCATION  OF  THIS  HEAT  SOURCE  '  ,  //  , 

STARTING  CELL  NUMBER  IN  X-DIRECTION  :  IHSB  =  ',12,/, 

Y-DIRECTION  :  JHSB  =  ',12,/, 
Z-DIRECTION  :  KHSB  =  ',12,//, 
AND  THE  CELLS  IN  X-DIRECTION  :  NHSW  =  ',12,//, 

Y-DIRECTION  :  NHSD  =  ',12,//, 

Z-DIRECTION  :  NHSH  =  ',12,//, 

LOCATION  OF  THIS  HEAT  SOURCE  RADIATION  EXCHANGE  ZONE',/, 


& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 


lOX 
8X 
lOX 
lOX 
lOX 
lOX 
lOX 
lOX 
lOX 
20X 
20X 
20X 
lOX 
20X 
20X 
20X 


ZONE  NUMBER  IN  X-DIRECTION 
Y-DIRECTION 
Z-DIRECTION 
SOURCE  ZONE  HAS 
ZONE 
ZONE 
ZONE 


C 
C 

c 
c 


11  CONTINUE 
***  READ  #  7 


THIS  HEAT 
ITHIN(I)  =' ,12, ' 
JTHIN(I   =' ,12, ' 
KTHIN(I)  =' ,12, ' 


MIIZ(] 
MJJZ(] 
MKKZ ( ] 

,//, 
THICKNESS  IN 
THICKNESS  IN 
THICKNESS  IN 


=  Mil  =  ' ,12,/, 
=  MJJ  =  ' ,12,/, 
)  =  MKK  =  ' ,12,// 

X-DIRECTION' ,/, 
Y-DIRECTION' ,/, 
Z-DIRECTION' ,//) 


READ(5,*)  MI,MJ,MK 
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READ(5,*)  (LI(I) ,I=1,MI) 
READ(5,'^)  {LJ(I),I  =  1,MJ) 
READ(5,^)  (LK(I) ,I=1,MK) 

WRITE(6,18)  MI, (LI(I),I=1,MI) 

18  FORMAT (1 OX, 'THERE  IS  ;  MI  =',12,'  ZONES  IN  X-DIRECTION' , // , 

&    20X,'THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LI(I)  =',1013,/) 
WRITE(6,19)  MJ, (LJ(J) ,J=1,MJ) 

19  FORMAT (lOX, 'THERE  IS  ;  MJ  =',I2,'  ZONES  IN  Y-DIRECTION ' , // , 

&    20X,'THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LJ(I)  =',1013,/) 
WRITE(6,20)  MK, (LK(K),K=1,MK) 

20  FORMAT (1 OX, 'THERE  IS  ;  MK  =',I2,'  ZONES  IN  Z-DIRECTION ' , // , 

&   20X,'THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LK(I)  =',1013,/) 

MZ=2* (MI*MJ+MJ^MK+MK*MI ) 
WRITE (6, 308)  MZ 
308  FORMAT (5X, 'TOTAL  NUMBER  OF  ZONES  ON  TANK  WALL  =',I3,/)  • 


NZ=MZ+NHSZ 


C 
C 
C 

C  *^^  VARIABLE  ARRAY  NAMES  FOR  ALL  SURFACE  EXCHANGE  ARE  DEFINED  AS 

C     FOLLOWS ; 

C 

C  ^-^^   WVF--  :  VIEW  FACTOR  BETWEEN  TWO  INTERIOR  WALL  ZONES 

C      SWVF--:  SUMMATION  OF  VIEW  FACTOR  FROM  ONE  WALL  ZONE  TO  ALL  OTHER 

C  WALL  ZONES 

C     VF-H-  :  VIEW  FACTOR  BETWEEN  HEAT  SOURCE  SURFACE  TO  INTERIOR  WALL 

C  ZONES 


C  VF-HS 

C  &  VFHS- 

C  SVFHS 

C  VFMXR 

C  SMXVFW(I) 


VIEW  FACTOR  BETV^EEN  WALL  ZONE  AND  WHOLE  HEAT  SOURCE 

SURFACE 

SUMMATION  OF  VIEW  FACTOR  FROM  HEAT  SOURCE  TO  WALL  ZONES 

VIEW  FACTOR  MATRIX  COEFFICIENT 

SUMMATION  OF  VIEW  FACTOR  MATRIX  COEFFICIENT  FROM  ANY 
C  ONE  ZONE  TO  ALL  OTHER  ZONES  EXCEPT  THE  HEAT  SOURCE 

C  ZONE.  THERE  ARE  NZ-1  VALUES 

C      SMXVFH:  SUMMATION  OF  VIEW  FACTOR  MATRIX  COEFFICIENT  FROM  HEAT 
C  SOURCE  ZONE  TO  ALL  OTHER  WALL  ZONES.  ONLY  ONE  VALUE 

C 

C  ^^-^   DEFINE  THE  GRID  SYSTEM 

C 

C  ^^*   DX,DY,DZ  AND  X,Y  AND  Z  ARE  DIMENSIONAL  QUANTITIES  (FT) 

C 

DX=WC/(NI-2) 

DY=DC/(NJ-2) 

DZ=HC/(NK-2) 
C 

NIM1=NI-1 

NJM1=NJ-1 

NKM1=NK-1 

NIM2=NI-2 

NJM2=NJ-2 

NKM2=NK-2 
C 

C  ***  DEFINE  THE  DISTANCE  BETWEEN  EACH  CELL 
C 

X(1)=-DX 

X(2)=0. 

DO  1  1=3, NI 

X(I)=DX^(I-2) 
1  CONTINUE 

Y(1)=-DY 

Y(2)=0. 

DO  233  J=3,NJ 

Y(J)=DY^(J-2) 
233  CONTINUE 

Z(1)=-DZ 
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c 
c 


Z(2)=0. 
DO  3  K=3,NK 
Z(K)=DZ*(K-2) 
3  CONTINUE 

WRITE(6,100)(X(I) ,I=1,NI) 

100  FORMAT ( 2X, 'X  (FT)= ' , 22 ( F5 . 1 ) ) 

WRITE(6,101)(Y(I),I=1,NJ) 

101  F0RHAT(2X,'Y  (FT)= ',18 ( IX, F5 . 1 ) ) 

WRITE(6,102)(Z(I),I=1,NK) 

102  F0RMAT(2X,'Z  (FT)  =  M8(  IX,  F5  . 1 ) ) 

DXY=DX*DY 
DZX=DZ'^DX 
DYZ=DY*DZ 


A1  =  2.^X(NI)*Y(NJ)+2.'^Y(NJ)'^Z(NZ)+2.'^Z(NK)*X(NI) 

WRITE (6,776)  DX , DY , DZ , DXY , DYZ , DZX , Al 

776  F0RMAT(/,5X, 'DX  = ' ,E11 .4 , 2X, ' DY  = ' ,E11 .4 , 2X, ' DZ   =',E11.4,/, 
&   5X,'DXY  =' ,E11.4,2X, 'DYZ  = ' ,E11 .4 , 2X, ' DZX  =',E11.4,/, 
&/,5X,'  ALL  IN  FT  OR  FT*^2 ' , // , 5X, ' TATAL  INTERIOR  SURFACE  ', 

&   'AREA  =' ,F8.3, '  FT^*2 ' ,/) 
C 

MIM=HI-1 

MIP=MI+1 

MJM=NJ-1 

HJP=MJ+1 

MKM=MK-1 

MKP=MK+1 
C 

MREGN1=0 

IREGN1=MJ*MK 

HRE  GN  2 =MRE  GN 1  + 1 RE  GN 1 

IREGN2=MJ'^MK 

MREGN3=MREGN2+IREGN2 

IREGN3=MI*MK 

MREGN4=MREGN3+IREGN3 

IREGN4=MI'^MK 

HREGN5=MREGN4+IREGN4 

IREGN5=NI'^MJ 

MREGN6=HREGN5+IREGN5 

IREGN6=MI*MJ 

MREGN7=MREGN6+IREGN6 

IREGN7=NHSZ 
C 

WRITE (6 , 777 )  IREGNl , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 
&  NREGNH-1,MREGN2+1,MREGN3+1,MREGN4+1,MREGN5+1,MREGN6+1,MREGN7+1 

777  FORMAT (/,5X, 'NUMBER  OF  ZONES  IN  EACH  REGION,  IREGN:',/, 

&  5X, 'REGION  1  =' ,13, 2X, ', REGION  2  =', 13 , 2X, ', REGION  3  =',I3,2X, 
&  ', REGION  4  =' ,13, 2X, ', REGION  5  =', 13 , 2X, ', REGION  6  =',I3,2X, 
&  ', REGION  7  =' ,I3,//,5X, 'THE  STARTING  INDEX  NUMBER  FOR  EACH', 
&  '  REGION,  MREGN:  '  ,/, 

&   5X, 'REGION  1  =' ,13, 2X, ', REGION  2  =', 13 , 2X, ', REGION  3  =',I3,2X, 
&     ', REGION  4  =' ,13, 2X, ', REGION  5  =', 13 , 2X, ', REGION  6  =',I3,2X, 
&     ' , REGION  7  =' ,13,/) 
C 

C  -^-^^   DEFINE  THE  DISTANCE  FOR  THE  ZONE  COORDINATE 
C 
C 

DO  14  I=1,NHSZ 
IB=IHSB(I) 

IE=IHSB(I)+NHSW(I)-1 
JB=JHSB(I) 

■JE=JHSB(I  +NHSD(I)-1 
KB=KHSB(I) 

KE=KHSB(I)+NHSH(I)-1 
C 

IBMl  =IB-1 
lEHl  =IE-1 

119   .   . 


c 
c 


JBMl  =JB-1 

JEMl  =JE-1 

IBPl  =13+1 

lEPl  =IE+1 

JBPl  =JB+1 

JEPl  =JE+1 

KBHl  =KB-1 

KEMl  =KE-1 

KBPl  =KB+1 

KEPI  =KE+1 

WRITE(6,2)  I,IHSB(I) ,MHSW(I) ,IB,IE,  JHSB( I ) ,NHSD(I ) , JB , JE , 
&  KHSB(I) ,MHSH(I) ,KB,KE 

2  FORMAT  (//,  2X,  '  ^^"^   POSITION  PARAMETERS  FOR  HEAT  SOURCE  #',I2, 
&  '  ***' ,//,5X, 'ITS  LOCATIONS  IS',/, 

&  5X,'IHSB  =M3,2X,'NHSW  =',I3,2X,'IB  =',I3,2X,'IE  =',I3,/, 
&  5X,'JHSB  =' ,I3,2X, 'NHSD  =',I3,2X,'JB  =',I3,2X,'JE  =',I3,/, 
&  5X,'KHSB  =' ,I3,2X, 'NHSH  =',I3,2X,'KB  =',I3,2X,'KE  =',I3,//) 

LZ=MZ+I 

AYZ(I)=(Y(JE+1)-Y(JB))*(Z(KE+1 
AXY(l)=  Y(JE+1)-Y  JB  r^(X(IE+l 
AZX(I)=(Z(KE+1)-Z(KB))*(X(IE+1 
AREA ( LZ ) = ( AYZ ( I ) +AZX ( I ) +AXY ( I ) 

WRITE(6,32)  AXY(I) ,AYZ(I) ,AZX(I) ,AREA(LZ) 
32  FORMAT (1 OX, 'THE  SURFACE  AREA  OF  THE  HEAT  SOURCE',//, 
&   20X,'AXY(I)  =',E11.4,'  FT^'^2  IN  X-Y  PLANE',/, 
&   20X,'AYZ(I   =',E11.4,'  FT*'^2  IN  Y-Z  PLANE',/, 
&   20X,'AZX(I)  =',E11.4,'  FT^'*^2  IN  Z-X  PLANE',/, 
&   15X,'THE  TOTAL  SURFACE  AREA  IS  =',E11.4,'  FT'^^2',/) 

14  CONTINUE 

RX(1)=0. 
11  =  1 

DO  15  1=1, MI 
I1=LI(I)+II 
•   RX(I+1)=X(I1+1) 
11  =  11 

15  CONTINUE 

RY(1)=0, 

JJ=1 

DO  16  J=1,MJ 

J1=LJ(J)+JJ 

RY(J+1)=Y(J1+1) 

JJ=J1 

16  CONTINUE 

RZ(1)=0. 
KK=1 

DO  17  K=1,MK 
K1=LK(K)+KK 
RZ(K+1)=Z(K1+1) 
KK=K1 
CONTINUE 


17 

778 

779 

780 
13 
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DO  778  1=1, MI 
ZX(I)=RX(I+1)-RX(I) 

DO  779  J=1,MJ 
ZY(J)=RY(J+1)-RY(J) 

DO  780  K=1,MK 
ZZ(K)=RZ(K+1)-RZ(K) 
CONTINUE 

WRITE(6,103)(RX(I) ,I=1,MI+1) , (RY(J) ,J=1,MJ+1) , (RZ(K) ,K=1,MK+1) 
&  ,(ZX(I),I=1,   MI),(ZY(J),J=1,   MJ),(ZZ(K) ,K=1,   HK) 

F0RMAT(/,5X, 'THE  POSITION  OF  ZONE  BOUNDARY  IN  EACH  DIRECTION  ', 
&' (FT) ' ,/,5X, 'X=' ,5(1X,F6.3),1X, 'Y=' ,4(1X,F6.3),1X, 'Z=' ,4(1X,F6.3) 
&      ,//,5X,'THE  SIZE  OF  THE  ZONE  IN  EACH  DIRECTION,  (FT),', 
&   /,5X, 'X=' ,4(1X,F6.3),1X, 'Y=' ,3(1X,F6.3),1X, 'Z=' ,3(1X,F6.3),//) 
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c 
c 

c 
c 
c 


c 

c 
c 


c 
c 
c 


c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


ycA*  DEFINE  THE  NUMBER  OF  CELLS  IN  EACH  ZONE,  WHICH  WILL  ALSO  BE  USED 

AS  THE  AREA  OF  EACH  ZONE  WITH  MULTIPLICATION  OF  UNIT  AREA  OF  CELL 
**-^   REGION  1  AND  2,  (L  &  R)  ,  NJ*MK  ZONES 

ISUM1=MREGN1 

ISUM2=HREGN2 

DO  977  J=1,MJ 

DO  977  K=1,MK 

ISUM1=ISUM1+1 

ISUM2=ISUM2+1 

AREA(ISUM1)=ZY(J)*ZZ(K) 

AREA(ISUM2)=AREA(ISUM1) 

977  CONTINUE 

**^   REGION  3  AND  4,  (RE  *  F)  ,  MI'^MK  ZONES 

ISUM1=MREGN3 
ISUM2=MREGN4 
DO  978  1=1, MI 
DO  973  K=1,MK 
ISUM1=ISUH1+  1 
ISUM2=ISUH2+  1 
AREA(ISUH1)=Za(I)^ZZ(K) 
AREA(ISUH2)=AREA(ISUM1) 

978  CONTINUE 

**^  REGION  5  AND  6,  (B  &  T)  ,  MI'^^MJ  ZONES 

ISUM1=MREGN5 
ISUM2=MREGN6 
DO  979  1=1, MI 
DO  979  J=1,MJ 
ISUM1=ISUM1+  1 
ISUM2=ISUM2+  1 
AREA(ISUM1)=ZY(J)*ZX(I) 
AREA(ISUM2)=AREA(ISUM1) 

979  CONTINUE 

WRITE(6,50)  (I,AREA(I),I=1,NZ) 
50  FORMAT  (5X, 'I  =  '  ,  13  ,  3X,  '  AREA  =',F5.1,'   FT^'^2  '  ) 

■^**   CALCULATE  THE  WALL  ZONE  TO  WALL  ZONE  VIEW  FACTOR   ■ 
CALL  WALL 

***  THE  THIRD  STEP  IS  TO 

***  CALCULATE  THE  COEFICIENTS  OF  THE  MATRIX  FOR  THE  SYSTEM  OF  SURFACE 
RADIATIVE  FLUX  EQUATIONS 

*  :*:  5*:  A  X  *  7k  X  7C  ^if  7C  X  A  jif  X  A  :'c  Ti:  5*:  :'r  7C  7T  :^  7C  X  7T  I'c  jif  *  3<:  *  *  :^ /"c  *  ;«c  ;*r  7*: /*: /^ 

DO  405  1=1, NZ 
DO  405  J=1,NZ 
VFMXR(I,J)=0. 
405  CONTINUE 

^^-^   REGION  1,  L  VS  -,R,RE,F,B,T 

KSM1=MERGN1 
DO  421  J=1,MJ 
DO  421  K=1,MK 
KSM1=KSM1+1 
KSH2=HREGN2 
KSH3=MREGN3 


121 


KSM4=MREGM4 
DO  422  JJ=1,MJ 
DO  422  KK=1,MK 
KSM2=KSM2+1 
VFMKR(KSM1,KSM2) 
VFMXR(KSM2,KSM1) 

422  CONTINUE 

DO  522  11=1, MI 
DO  522  KK=1,MK 
KSM3=KSM3+1 
KSM4=KSM4+1 
VFMXR(K5M1,KSM3 
VFMXR  KSM1,KSM4 
VFHXR(KSM3,KSH1 
VFMXR (KSM4,KSM1 
522  CONTINUE 

KSM5=MREGN5   . 
KSM6=MREGN6 
DO  423  11=1, MI 
DO  423  JJ=1,MJ 
KSM5=KSM5+1 
KSH6=KSM6+1 
VFMXR(KSM1,KSM5 
VFMXR {KSni,KSM6 
VFMXR (KSM5,KSM1 
VFMXR (KSM6,KSM1 

423  CONTINUE 
421  CONTINUE 

C 

C  **  REGION  2,  R  VS   ■ 

C 

KSM2=MREGN2 
DO  428  J=1,MJ 
DO  428  K=1,MK 
KSM4=MREGN4 
KSM2=KSM2+1 
DO  429  11=1, MI 
DO  429  KK=1,MK 
KSM4=KSM4+1 
VFMXR (KSM2,KSM4 
VFMXR ( KSM4 , KSM2 

429  CONTINUE 

KSM5=MREGN5 
KSM6=MREGN6 
DO  430  11=1, MI 
DO  430  JJ=1,MJ 
KSM5=KSM5+1 
KSM6=KSM6+1 
VFMXR (KSM2,KSM5 
VFMXR (KSM2,KSM6 
VFMXR (KSM5,KSM2 
VFMXR (KSM6,KSM2 

430  CONTINUE 
428  CONTINUE 


=WVFLR 
=WVFRL 


J,K,JJ,KK 
JJ,KK,J,K 


=wvflre(j,k,ii,kk; 
=wvflf  j,k,ii,kk 
=wvfrel(ii,kk,j,k 
=wvFFL  (ii,kk,j,k; 


=WVFLB  (J,K,II,JJ" 

=WVFLT  (J,K,II,JJ' 

=WVFBL  (II,JJ,J,K 

=wvFTL  (ii,jj,j,k; 


,F,B,T, 


=WVFRF(J,K,II,KK 
=WVFFR(II,KK,J,K 


l=WVFRB(J,K,II,JJ" 
l=WVFRT(J,K,II,JJ' 
l=WVFBR(II,JJ, J,K; 
i=WVFTR(II,JJ,J,K, 


C  ^*^   REGION  3 
C 


RE  VS  -,R,-,F,B,T 


KSM3=MREGN3 
DO  425  1=1, MI 
DO  425  K=1,MK 
KSM3=KSM3+1 
■  KSM2=MREGN2 
KSM4=MREGN4 
DO  426  JJ=1,MJ 
DO  426  KK=1,MK 
KSM2=KSM2+1 
VFMXR (KSM3,KSM2 
VFMXR (KSM2,KSM3 
426  CONTINUE 


=WVFRER(I,K,JJ,KK 
=WVFRRE(JJ,KK,I,K 
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DO  526  11=1, MI 

DO  526  KK=1,MK 

KSM4=KSM4+1 

VFMXR ( KSM3 , KSM4 ) =WVFREF ( I , K , I I , KK ) 

VFMXR ( KSM4 , KSM3 ) =WVFFRE ( I I , KK , I , K ) 
526  CONTINUE 

KSM5=MREGN5 

KSN6=HREGN6 

DO  427  11=1, MI 

DO  427  JJ=1,MJ 

KSM5=KSM5+1 

KSM6=KSM6+1 

VFMXR ( KSM3 , KSM5 ) =WVFREB ( I , K , 1 1 , J J ' 

VFMXR ( KSM3 , KSM6 ) =WVFRET ( I , K , 1 1 , J J I 

VFMXR (KSH5 , KSM3)=WVFBRE ( II , JJ , I , K 

VFMXR ( KSM6 , KSM3 ) =WVFTRE ( 1 1 , J J , I , K ; 
427  CONTINUE 
425  CONTINUE 


C 
C 
C 


**  REGION  4,  F  VS 


,-,B,T 


C 
C 
C 


C 
C 
C 
C 
C 


KSM4=MREGN4 

DO  438  1=1, MI 

DO  438  K=1,MK 

KSM4=KSM4+1 

KSH5=MREGN5 

KSM6=MREGN6 

DO  439  11=1, MI 

DO  439  JJ=1,MJ 

KSM5=KSM5+1 

KSM6=KSH5+1 

VFMXR ( KSM4 , KSM5 ) =WVFFB ( I , K , 1 1 ,  J J ; 

VFMXR ( KSM4 , KSM6 ) =WVFFT ( I , K , I I , J J 

VFMXR ( K5M5 , K5M4 ) =WVFBF ( 1 1 , J J , I , K ' 

VFMXR ( KSM6 , KSM4 ) =WVFTF ( 1 1 , J J , I , K I 
439  CONTINUE 
438  CONTINUE 

**  REGION  5,  B  VS  -,-,-,-,-,T 

KSM5=MREGN5 

DO  448  1=1, MI 

DO  448  J=1,MJ 

KSM5=KSM5+1 

KSM6=MREGN6 

DO  449  11=1, MI 

DO  449  JJ=1,MJ 

KSM6=KSM6+1 

VFMXR ( KSM5 , KSM6 ) =WVFBT ( I , J , I I , J J 

VFMXR ( KSM6 , KSM5 ) =WVFTB ( I I , J J , I , J 
449  CONTINUE 
448  CONTINUE 

*^*  VIEW  FACTOR  MATRIX  COEFFICIENT  FOR  HEAT  SOURCES 

DO  301  M=1,NHSZ 
LZ=MZ+M 
ISS=0 

DO  302  1=1,6 
IS(I)=LTyPE(M,I) 
IS5=ISS+IS(I) 
302  CONTINUE 
SM=ISS 

mii=miiz(m) 
mjj=mjjz(m) 
mkk=mkkz(m) 

MIIM=MII-1 
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MJJM=MJJ-1 

MKKM=MKK-1 
C 

MIIP=MII+1 

MJJP=MJJ+1 

MKKP=HKK+1 

IP=ITHIM(M) 

JP=JTHIH(M) 

KP=KTHIN(M) 
C 

DO  304  J=1,MJ 

DO  304  K=1,MK 

VFHSL(J,K)=0. 

VFLHS  J,K  =0. 

'  vfhsr(j,k)=o. 

VFRHS(J,K)=0. 
304  CONTINUE 

DO  305  1=1, MI 

DO  305  K=1,MK 

VFHSRE(I,K)=0. 

VFREHS  I,K  =0. 

VFHSF  (I,K)=0. 

VFFHS  (I,K)=0. 
30  5  CONTINUE 

DO  306  1=1, HI 

DO  306  J=1,MJ 

VFHSB(I, J)=0. 

VFBHS(I,J)=0. 

VFHST(I,J  =0. 

VFTHS(I,J)=0. 

306  CONTINUE 

C  ^ 

WRITE  (6, 307)  M,NII ,MJJ ,MKK , ISS , ( IS (I ) , 1  =  1 , 6 ) 

307  FORMAT (//,5X, 'HEAT  SOURCE  #',12,//, 

&  5X,'IT  IS  LOCATED  AT  Mil  = '  ,  12 ,  2X,  '  MJJ  =M2,2X,'MKK  =',I2,//, 
&  5X, 'NUMBER  OF  SURFACES  ON  THIS  HEAT  SOURCE  IS  ',12,//, 
&  5X,'THE  SURFACE  TYPE  LTYPE  :  =',6I2,//) 

C 

C  ^^-^   CALCULATE  VIEW  FACTOR  BETWEEN  HEAT  SOURCE  AND  ALL  V^ALL  ZONES 

C 

CALL  HSTWAL(IS,KSS,IP, JP.KP) 

c 

C  **  REGION  1,    HS  VS  L,R,RE,F,B,T 

C 

C  t^Aa  HS  VS   R  &  L 

C 

KSM1=0 

KSM2=MREGN2 

DO  401  J=1,MJ 

DO  401  K=1,MK 

KSM1=KSM1+1 

KSM2=KSM2+1 

VFMXR(LZ,KSM1)=VFHSL(J,K)/SN 

VFMXR ( KSMl , LZ  =VFLHS  J , K  / SN 

VFMXR(LZ,KSM2)=VFHSR(J,K)/SN 

VFMXR ( KSM2 , LZ ) =VFRHS ( J , K ) / SN 
401  CONTINUE 
C 

C  -^^^   HS  VS  RE  &  F 
C 

KSM3=MREGN3 

KSM4=MREGN4 

DO  402  1=1, MI 

DO  402  K=1,MK 

KSM3=KSM3+1 

KSM4=KSM4+1 

VFMXR(LZ,KSM3)=VFHSRE(I,K)/SN 
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VFMXR ( KSM3 , LZ ) =VFREHS ( I , K ) / SN 
VFMXR(LZ,KSM4)=VFHSF(I,K)/SM 
VFMXR ( K5M4 , LZ ) =VFFHS ( I , K ) / SN 
402  CONTINUE 


c 
c 

HS  VS  I 

'  &  B 

KSH5=MREGN5 

KSM6=MREGN6 

DO  403  1=1, MI 

DO  403  J=1,MJ 

KSM5=KSH5+1 

KSM6=KSM6+1 

VFMXR ( 

;lz,ksm5) 

i=VFHSB( 

I, 

,J) 

t/SN 

VFMXR < 

KSM5,LZ 

i=VFBHS< 

I, 

'^( 

i/SN 

VFMXR ( 

LZ,KSM6 

i=VFHST( 

I 

,J 

i/SN 

VFMXR < 

;ksh6,lz) 

t=VFTHS( 

I 

,J; 

i/SN 

403  CONTINUE 
C 

301  CONTINUE 
C 

C 

C  ^-^^   PRINT  OUT  THE  VIEW  FACTOR  MATRIX  COEFFICIENTS 

c 

DO  559  N=1,NHSZ 

LZ=MZ+N 

WRITE (6, 560)  N,LZ 
550  FORMAT (/,5X, 'HEAT  SOURCE  ZONE  #',I2,';  THE  INDEX  NUMBER  IS', 14,//) 
C 

DO  120  1=1, NZ 
120  SMXVFW(I)=0. 

WRITE(6,558) 
558  FORMAT (//,5X, 'SUMMATION  OF  VIEW  FACTOR  MATRIX  COEFFIENT ' , // , 

&  '(I).  ONE  ZONE  TO  ALL  OTHER  ZONES  EXCEPT    THE  HEAT  SOURCE',/ 
&  '(2).  ONE  ZONE  TO  ALL  OTHER  ZONES  INCLUDES  THE  HEAT  SOURCE',//) 

DO  550  1=1, NZ 

DO  557  J=1,NZ 

IF(J.LE.MZ)  SMXVFW(I)=SMXVFW(I)+VFMXR(I,J) 

SMXVFH ( I ) =SMXVFH ( I ) +VFMXR ( I , J ) 
557  CONTINUE 

WRITE (6, 553)  I,SMXVFW(I) .SMXVFH(I) 
553  F0RMAT(5X,'I  = ' , 13 , 2E16 .4) 
550  CONTINUE 


C 

C 


WRITE(6,562) 
562  F0RI^AT(/,4X, 'VF  ;  HS  TO  WALL  (I)',6X,'VF  ;  WALL(I)  TO  HS',//) 


SUM1=0. 

SUM2=0. 

DO  782  1=1, MZ 

SUM1=SUM1+VFMXR( I , LZ ' 

SUM2=SUM2+VFMXR (LZ , I ' 

WRITE(6,783)  I , VFMXR(LZ , I ) ,VFMXR(I,LZ) 

783  FORMAT(10X, 'I  = ' , 13 , 2E15 .4) 
782  CONTINUE 

WRITE (6, 784)  N,SUM1,SUM2 

784  FORMAT (3X, 'SUMMATION  OF  VIEW  FACTOR  FROM  ALL  WALL  ZONES  TO  ', 
&  'HEAT  SOURCE  #',I2,',  THE  VFMXR(I,LZ);  =',E14.4,/, 

&  3X, 'SUMMATION  OF  VIEW  FACTOR  FROM  HEAT  SOURCE  TO  ALL  WALL  ' 

&  'ZONES, ' ,3X, '  VFMXR(LZ,I) ; ' ,E14.4,/) 
C 

C  ***  SMXVFF:  SUMMATION  OF  VIEW  FACTOR  MATRIX 
C 

C  -^-^^   VIEW  FACTOR  FROM  HEAT  SOURCE  TO  V/ALL  ZONES;  CALCULATED  FROM 
C      SURFACE  AREA  EXCHANGE  MEHTOD 
C 
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c 
c 


WRITE (6, 787) 

787  FORMAT (3X, 'VIEW  FACTOR  FROM  HEAT  SOURCE  TO  WALL  ZONES  ',/,3X, 
&  '(1)  CALCULATED  FROM  WALL  TO  HEAT  SOURCE  RECIPROCAL  METHOD',/, 
&  3X,'(2)  CALCULATED  FROM  FORMULATION  DIRECTLY',//) 

SMXVFF=0 . 

DO  5  52  I=1,MREGN3 

AA=VFMXR ( I , LZ ) ^AREA ( I ) /AREA ( LZ ) 

SMXVFF=SMXVFF+AA 

BB=VFMXR(LZ,I) 

WRITE(6,788)  I,AA,BB 

788  F0RMAT(5X,'I  = ' , 13 , 2X, E13 .4 , 2X, E13 .4) 
552  CONTINUE 

DO  555  I=MREGN3+1,MREGN5 
AA=VFMXR(I ,LZ)^AREA(I)/AREA(LZ) 
SMXVFF=SMXVFF+AA 
BB=VFMXR(LZ,I) 
WRITE(6,78S)  I,AA,BB 

555  CONTINUE 
DO  556  I=MREGM5+1,NZ-1 
AA=VFMXR(I,LZ)*AREA(I)/AREA(LZ) 
SMXVFF=SMXVFF+AA 
BB=VFHXR(LZ,I) 
WRITE(6,738)  I,AA,BB 

556  CONTINUE 
WRITE (6, 807)  SMXVFF 

807  FORMAT (/,5X, 'SUMMATION  OF  VIEW  MATRIX  COEFF.  FROM  HEAT  SOURCE', 
&  'TO  ALL  WALL  ZONES,  SMXVFF  =',E11.4,/) 

559  CONTINUE 

WRITE(6,551 
WRITE(6,801, 

801  F0RMAT(/,5X, '  (J,K,(SWVFL  ( J ,K) ,K=1 ,MK) , J=l ,MJ) ' , / ) 

WRITE(6,809)((J,K.SWVFL  ( J ,K) , K=l ,MK) , J=l ,MJ) 
809  FORMAT(2I4,1PE10.2) 
WRITE(6,802) 

802  F0RMAT(/,5X, '  ( J , K, (SWVFR( J , K) , K=l ,MK) , J=l ,MJ) ' , / ) 

WRITE(6,809)((J,K,SWVFR(J,K),K=1,MK) ,J=1,MJ) 
WRITE (6, 803) 

803  FORMAT!/, 5X, '  (I , K, (SWVFRE (I ,K) ,K=1 ,MK) , 1=1 ,MI ) ' , / ) 

WRITE ( 6 , 809 ) ( ( I , K , SWVFRE ( I , K ) , K=l , MK) , 1=1 , MI ) 
WRITE(6,804) 

804  FORMAT (/,5X, '  (I,K,(SWVFF  ( I ,K) , K=l ,MK) , 1=1 ,MI ) ' , / ) 

WRITE(6,809)((I,K,SWVFF  (I , K) , K=l ,MK) , 1=1 ,MI ) 
WRITE(6,805) 

805  FORMAT (/,5X, '  (I,J,(SWVFB  (I , J) , J=l ,MJ) , 1=1 ,MI ) ' , / ) 

WRITE(6,809)((I,J,SWVFB  (I , J) , J=l ,MJ) ,1=1, MI) 
WRITE (6, 806) 

806  F0RMAT{/,5X, '  (I,J,(SWVFT  (I , J) , J=l ,MJ) , 1=1 ,MI ) ' , /) 

WRITE(6,809)((I,J,SWVFT  ( I , J) , J=l ,MJ) ,1=1, MI) 

C 

551  FORMAT (/,2X, 'SUMMATION  OF  VIEW  FACTOR') 

C 

C  ***   SAVE  DATA  ON  A  DISK  FILE 

C 

WRITE (9) 
&  IREGNl , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 
&  MREGNl ,MREGN2 ,MREGN3 ,MREGN4 ,MREGN5 ,MREGN6 ,MREGN7 , 
&  WC , DC , HC , NI , N J , NK , AXY , AYZ , AZX , 

&  MI IZ , MJ JZ , MKKZ , MI , MJ , MK , LTYPE , MZ , NHSZ , NZ , LI , L J , LK , 
&  ITHIN , JTHIN , KTHIN , IHSB , JHSB , KHSB , NHSW , NHSD , NHSH , VFMXR , AREA 

C 

C     WRITE(6,773) 

C  773  F0RMAT(5X, 'VIEW  FACTOR  MATRIX  AT ' , // , 5X, ' I , ( J , VFMXR(I , J) , J=l ,NZ) 

C    &   //) 

C 

C  .    M=l 

C     J=l 
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774 


C 

c 
c 
c 
c 
c 
c 
c 

C775 

C 

C 

c 
c 
c 


771 
772 


C 
C 


MZ=NZ/8 

DO  771  1=1, NZ 

CONTINUE 

IF(M.GT.MZ)  GO  TO  775 

WRITE(6,772)  I , (K, VFHXR(I , K) ,K=J, J+7) 

J  =  J+8 

M=M+1 

GO  TO  774 

WRITE(6,772)  1, (K, VFMXR(I , K) ,K=J,NZ) 

M=l 

J=l 

CONTINUE 

F0RMAT(1X, '1='  ,13,8  ('  J= ',13 , 1PE8 . 1 ,','),/ ) 

STOP 

END 

SUBROUTINE  WALL 

C0MM0N/BL3/   VFMXR (67,67), SMXVFW ( 67 ) , SMXVFH (67 ) 
C0MM0N/BL4/  WVFLR(3 , 3 , 3 , 3 ) , WVFLRE (3 , 3 , 4 , 3 ) , WVFLF(3 , 3 , 4 , 3) , 


&  WVFLT 
&  WVFRT 
&  WVFFT 
&  WVFBL 
&  WVFTL 


3 

3 
'4 
'4 
'4 


3 

3' 

3' 

3' 

3' 


&  WVFRET(4,3,4,3 
&  WVFREL(4,3,3,3 


,  WVFRRE  3,3,4,3), WVFRF  3,3,4,3), WVFRB (3,3,4 
,WVFRL  (3,3,3,3) , WVFFL(4 , 3 , 3 , 3) ,WVFFB(4,3,4 
,  WVFFRE  (4,3,4,3,  VJVFFR  (4,3,3,3),  WVFBT  (4,3,4 
,  WVFBRE  4,3,4,3, WVFBF  4,3,4,3, WVFBR  4,3,3 
, WVFTRE (4,3,4,3), WVFTF (4,3,4,3), WVFTR (4,3,3 
) ,WVFREF(4,3,4,3  , WVFRER(4 , 3 , 3 , 3 ) ,WVFTB(4/3 
> ,WVFREB(4,3,4,3) , WVFLB(3 , 3 , 4 , 3 ) 


,3 
,3 
;4,3), 


C0MM0N/BL5/ 
&  VFHSR(3,3),VFHSF(4,3),VFHSRE(4,3) ,VFHST(4,3) ,VFHSB(4,3 
&  VFRHS(3,3) ,VFFHS(4,3  ,VFREHS(4,3) ,VFTHS(4,3) ,VFBHS(4,3 
&  VFHSL(3,3) ,VFLHS(3,3) 

COMMON  /BL6/  VFLHT(3 , 3 ) , VFRHT(3 , 3) , VFFHT(4 , 3 ) , VFREHT(4 , 3 ) , 
&  VFFHR(3,3),VFRHR(3,3) , VFREHR(4 , 3 ) , VFTHR(4 , 3 ) , VFBHR(4 , 3 ) , 
&  VFLHL(3,3),VFFHL(4,3),VFREHL(4,3),VFTHL(4,3),VFBHL(4,3), 
&  VFLHRE (3,3), VFRHRE (3,3), VREHRE (4,3), VFTHRE (4,3), VFBHRE (4,3), 
&  VFLHF(3,3),VFRHF(3,3),VFFHF(3,3),VFTHF(4,3),VFBHF(4,3), 
&  VFLHB{3,3  ,VFRHB(3,3),VFFHB(4,3) , VFREHB (4 , 3 ) , VFBHB(4 , 3) , 
&  VFTHT(4,3) 

COMMON  /BL7/  VFHTL(3 , 3) , VFHTR(3 , 3 ) , VFHTF(4 , 3 ) , VFHTRE (4 , 3) , 
&  VFHRF(3,3),VFHRR(3,3),VFHRRE(4,3),VFHRT(4,3),VFHRB(4,3), 
&  VFHLL(3,3),VFHLF(4,3),VFHLRE(4,3),VFHLT(4,3),VFHLB(4,3), 
&  VFHREL(3,3),VFHRER(3,3),VHRERE(4,3),VFHRET(4,3),VFHREB(4,3), 
&  VFHFL (3,3), VFHFR (3,3), VFHFF ( 3,3), VFHFT (4,3), VFHFB (4,3), 
&  VFHBL (3,3), VFHBR (3,3), VFHBF ( 4,3), VFHBRE (4,3), VFHBB (4,3), 
&  VFHTT(4,3) 

COMMON  /BL8/  X(22) , Y(18) ,Z(18) ,NOD(22 , 18 , 18) , 
&     RX(5),RY(4),RZ(4),AREA(67),ZX(5),ZY(4),ZZ(4) 

COMMON  /BL9/  SWVFRE (4 , 3 ) , SWVFL(3 , 3) , SWVFR(3 , 3) , SWVFF(4 , 3) , 
&  SVJVFT(4,3)  ,SWVFB(4,3) 

COMMON  /BLIO/  NZ ,DX,DY,DZ,DXY,DYZ ,DZX, WC ,DC ,HC 

COMMON  /BLl/  NI,NJ,NK,NIM1,NJM1,NKM1,NIM2,NJM2.NKM2, 
&  MI ,  MJ  ,  MK  ,  MI  I  ,  MJ  J  ,  MKK ,  MIM ,  MIP  ,  MJM ,  MJP  ,  MKM ,  MKP  ,' 
&  HUM  ,  MI  I P  ,  M  J  JM  ,  M  J  JP  ,  MKKM  ,  HKKP  , 

&   IREGNl , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGM7 , 
&  MREGNl ,MREGN2 ,MREGN3 ,MREGN4 ,MREGN5 ,MREGN6 ,MREGM7 

COMMON  /BL2/  IB , IE , IBMl , IBPl , lEMl , lEPl , 
&  JB,JE,JBM1,JBP1,JEM1,JEP1, 

&  KB,KE,KBM1,KBP1,KEM1,KEP1 

COMMON/BLll/  MIIZ(9) ,MJJZ(9) ,MKKZ(9) ,IS(6) ,LTYPE(9,6) , 
&  LI(9),LJ(9),LK(9),AYZ(9),AXy(9),AZX(9), 

&  NHSZ,ITHIN(9) , JTHIN(9) ,KTHIN(9 
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&  IHSB(9) ,NHSW(9),JHSB(9),NHSD(9),KHSB(9),NHSH(9) 

C 
C 

C  **'^  WVF--  VIEW  FACTOR  BETWEEN  TWO  WALL  ZONES 

C      SWVF--  SUHMATION  OF  VIEW  FACTOR  FRON  ONE  WALL  ZONE  TO  ALL  OTHER 

C  WALL  ZONES 

C  ***  THE  VIEW  FACTORS  BETWEEN  TANK  INTERIOR  WALL  ZONES 

c 

C  ***  3  PAIRS  OF  PARALLEL  WALLS  INSIDE  THE  TANK 

C 

C   1.*  LEFT  WALL  VS  RIGHT  WALL,  (L  VS  R) 

C 

GHZ=RX(HI+1)-RX(1) 

DO  500  J=1,MJ 

DO  500  K=1,MK 

DO  500  JJ=1,HJ 

DO  500  KK=1,MK 

DO  4  L=1,NHSZ 

IF(LTYPE(L,1) .NE.l)  GO  TO  5 

IF(J  .NE.  MJJZ(L))  GO  TO  4 

IF(K  .NE.  NKKZ(L))  GO  TO  4 

IF(JJ.NE.  MJJZ(l  )  GO  TO  4 

IF(KK.NE.  HKKZ(L))  GO  TO  4 

GO  TO  500 

4  CONTINUE 

5  CONTINUE 

JP1=J+1 
KP1=K+1 
JJP1=JJ+1 
KKP1=KK+1 

DDD=PARLEL(RZ(K) ,RZ(KP1) ,RY( J) ,RY(JP1) ,RY(JJ) ,RY( JJPl ) ,RZ(KK) , 
&    RZ ( KKP 1 ) , GHZ ) ^GHZ^GHZ 
WVFLR(J,K,JJ,KK)=DDD/(ZY(J)'^ZZ(K)) 
WVFRL(JJ,KK,J,K)=DDD/(ZY(JJ)^ZZ(KK)) 
SWVFL(J,K)   =SWVFL(J,K)   +WVFLR  J,K,JJ,KK; 
SWVFR ( J J , KK ) =SWVFR ( J J , KK ) +WVFRL ( J J , KK , J , K , 
500  CONTINUE 
C 

WRITE(6,51) 

51  F0RMAT(2X,'J  ,K  , SWVFL  (  J,  K)  *^  JJ,KK,WVFLR  ( J , K, JJ,KK) , ' , 
&  'WVFRL  (JJ,KK,J,K),  SWVFR  (JJ,KK)',/)  • 

DO  52  J=1,HJ 
DO  52  K=1,MK 
WRITE(6,53)  J  ,K  , SWVFL  (  J,  K) 

53  F0RMAT(2X,  '  J=',I3,'   K=M3,'  SWVFL  =MPE10.2./) 

WRITE(6,54)  ((JJ,KK, WVFRL  (  J,  K, JJ ,KK) , WVFRL  (JJ,KK,  J,  K) , 
&  SV;VFR  (JJ,KK)  ,KK=1,MK)  ,JJ=1,MJ) 

54  F0RHAT(2I3,3E14.4) 

52  CONTINUE 
C 

C  2.*  REAR  WALL  VS  FRONT  WALL,  (RE  VS  F) 
C 


GHZ=RY(NJ+1)-RY(1) 

1 

DO  501  1=1, MI 

DO  501  K=1,MK 

DO  501  11=1, NI 

DO  501  KK=1,MK 

DO  6  L=1,NHSZ 

IF( 

;LTYPE(L,3) .NE.l)  GO  TO  7 

IF( 

I  .NE.  MIIZ(L)] 

1  GO 

TO  6 

IF< 

K  .NE.  MKKZ  L) 

1  GO 

TO  6 

IF( 

II. NE.  HIIZ(l) 

1  GO 

TO  6 

IFI 

KK.NE.  MKKZ(L) 

1  GO 

TO  6 

GO  TO  501 

6 

CONTINUE 

7 

CONTINUE 

ip; 

L  =  I  +  1 
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KP1=K+1 
IIP1=II+1 
KKP1=KK+1 

DDD=PARLEL(RZ(K) ,RZ(KP1) , RX(I ) , RX( IPl ) ,RX( II ) ,RX( IIPl ) ,RZ(KK) , 
&    RZ(KKPl)  ,GHZ)^GHZ'^GHZ 
WVFREF(I,K,II,KK)=DDD/((RX(IP1)-RX(I))^(RZ(KP1)-RZ(K))) 
WVFFRE  II,KK,I,K)=DDD/((RX(IIP1)-RX(II))*(RZ(KKP1)-RZ(KK))) 
SWVFRE(I,K)  =SWVFRE(I,K)  +WVFREF( I , K, II , KK) 
SWVFF(II,KK)=SWVFF(II,KK)+WVFFRE(II,KK,I,K, 

501  CONTINUE 
C 

WRITE(6,55) 

55  F0RMAT(2X,'  I,  K,SWVFRE(  I,  K)  ^^    II ,KK, WVFREF(I , K, II ,KK) , ' , 
&  'WVFFRE(II,KK,I,K) ,  SWVFF  (II,KK)',/) 

DO  56  1=1, MI 
DO  56  K=1,MK 

WRITE (6, 57)   I,  K,SWVFRE(  I,  K) 
57  F0RHAT(2X,'  I=M3,'   K=M3,'  SWVFRE=  '  ,  IPEIO  .  2  .  /  ) 

WRITE(6,54)  ((II,KK,WVFREF(  I,  K, II ,KK) , WVFFRE (II ,KK,  I,  K) , 
&  SWVFF  (II,KK) ,KK=1,MK) ,II=1,MI) 

56  CONTINUE 
C 

C  3.*  TOP  WALL  VS  BOTTOM  WALL,  (T  VS  B) 
C 

GHZ=RZ(MK+1)-RZ(1) 

DO  502  1=1, MI 

DO  502  J=1,MJ 

IP1=I+1 

JP1=J+1 

DO  502  11=1, MI 

DO  502  JJ=1,MJ 

DO  8  L=1,NHSZ 

IF(LTYPE(L,3) .NE.l)  GO  TO  9 

IF(I  .NE.  MIIZ(L))  GO  TO  8 

IF(J  .NE.  MJJZ(L))  GO  TO  8 

IF(II.NE.  MHZ  L)   GO  TO  8 

IF(JJ.NE.  MJJZ(L))  GO  TO  8 

GO  TO  502 

8  CONTINUE 

9  CONTINUE 

IIP1=II+1 
JJP1=JJ+1 

DDD=PARLEL(RY(J) ,RY( JPl ) , RX( I ) , RX(IP1 ) ,RX(II) , RX(IIPl) ,RY(JJ) , 
&     RY(JJPl)  ,GHZ)'^GHZ^GHZ 
WVFBT  (I,J,II,JJ)=DDD/(ZX(I)*ZY(J)) 
WVFTB  (II,JJ,I,J)=DDD/(ZX(II)*ZY(JJ)) 
SWVFB    I,  J)=SWVFB  (  I,  J)+WVFBT  (I,J,II,JJ 
SWVFT  (II,JJ)=SWVFT  (II , JJ)+WVFTB  (II,JJ,I,J 

502  CONTINUE 
C 

WRITE(6,110) 

110  F0RMAT(2X. '  I,  J , SWVFB  (  I,  J)  **  II, JJ, WVFBT  (I , J , II , JJ) , ' , 
&  'WVFTB  (II,JJ,I,J),  SWVFT  (II,JJ)',/) 

DO  111  1=1, MI 
DO  111  J=1,MJ 

WRITE  ('6, 112)   I,  J,  SWVFB  (  I,  J) 
112  F0RMAT(2X,  '  I=',I3,'   J=M3,'  SWVFB  =  '  ,  IPElO  .  2  ,  /  ) 

WRITE(6,54)  ((II, JJ, WVFBT  (  I,  J , II , JJ) , WVFTB  (II, JJ,  I,  J), 
&  SWVFT  (II,JJ) ,JJ=1,MJ) ,II=1,MI) 

111  CONTINUE 
C 

C  ^^-^^    12  PAIRS  OF  PERPENDICULAR  WALL  INSIDE  THE  TANK 
C 

C  ^^-k    1  ===  LEFT  WALL  VS  BOTTOM  (L  VS  B) 
C 

DO  503  J=1,MJ 
DO  503  K=1,MK 
DO  503  11=1, MI 
DO  503  JJ=1,MJ 
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503 
C 

59 

61 

60 
C 

c  **^ 

c 


504 


63 


66 


64 
C 
c  *** 

c 


GHl  =RX(II) 
GH2  =RX(II+1) 
GVl  =RY  JJ) 
GV2  =RY(JJ+1) 
SVl  =RY  J) 
SV2  =RY  J+1) 
SHI  =RZ(K) 
SH2  =RZ(K+1) 

DDD  =PERPMD ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , 
WVFLB(J,K,II,JJ)=DDD/((SH2-SH1)*(SV2-SV1 
WVFBL(II,JJ,  J,K)=DDD/((GH2-GH1)'^(GV2-GV1 
SWVFL(J,K)  =SWVFL(J,K)  +Vr7FLB  (J,K,II, 
SWVFB ( II , J J ) =SWVFB ( I I , J J ) +WVFBL ( I I , J J , J , 
CONTINUE 


GH2) 

JJ) 
K) 


WRITE(6,59) 

FORMAT (2X,'  J,  K,SWVFL  (  J,  K)  **  II,JJ,WVFLB  ( J , K, II , JJ) , ' , 
&  'WVFBL  (II,JJ,J,K),  SWVFB  (II, JJ)',/) 

DO  60  J=1,MJ 

DO  60  K=1,MK 

WRITE(6,61)   J,  ■K,SWVFL  (  J,  K) 
F0RHAT(2X,'  J=',I3,'   K=',I3,'  SWVFL  =MPE10.2./) 

WRITE (6, 54)  ((II,JJ,WVFLB  (  J,  K, II , JJ) , WVFBL  (II,JJ,  J,  K) , 
&  SWVFB  (II,JJ) , JJ=1,MJ) ,II=1,HI) 
CONTINUE 

2  ===  LEFT  WALL  VS  REAR  WALL  (L  VS  RE) 

DO  504  J=1,MJ 
DO  504  K=1,MK 
DO  504  11=1, MI 
DO  504  KK=1,MK 
GHl  =RX(II) 
GH2  =RX{II+1) 
GVl  =RZ(KK) 
GV2  =RZ  KK+1) 
SHI  =RY(J) 
SH2  =RY  J+1) 
SVl  =RZ  K) 
SV2  =RZ(K+1) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 
WVFLRE(J,K,II,KK)=DDD/(  SH2-SH1^(SV2-SV1)~ 
WVFREL(II,KK,J,K)=DDD/((GH2-GH1)'^(GV2-GV1) 
SWVFL(J,K)    =SWVFL(J,K)    +WVFLRE ( J ,K , II , KK) 
SWVFRE ( I I , KK ) =SWVFRE ( I I , KK ) +WVFREL ( I I , KK , J , K ) 
CONTINUE 

WRITE (6, 63) 

F0RMAT(2X,'  J,  K, SWVFL  (  J,  K)  **  II ,KK, WVFLRE ( J , K, II ,KK) , ' , 
&  •WVFREL(II,KK,J,K) ,  SWVFRE (II ,KK) ',/ ) 

DO  64  J=1,MJ 

DO  64  K=1,MK 

WRITE (6, 66)   J,  K, SWVFL  (  J,  K) 
F0RMAT(2X,'  J=',I3,'   K=',I3,'  SWVFL  = '  , IPEIO  .  2  .  / ) 

WRITE(6,54)  ((II,KK,WVFLRE(  J,  K , II , KK) , WVFREL( II , KK,  J,  K) , 
&  SWVFRE (I I, KK) ,KK=1,MK) ,11=1, MI) 
CONTINUE 

3===  LEFT  WALL  VS  FRONT  WALL,  (L  VS  F) 

DO  505  J=1,MJ 
DO  505  K=1,MK 
,  DO  505  11=1, MI 
DO  505  KK=1,MK 
GHl  =RX(II) 
GH2  =RX(II+1) 
GVl  =RZ  KK) 
GV2  =RZ(KK+1) 
SH2  =RY(MJ+1)-RY(J) 
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SHI  =RY(MJ+1)-RY(J+1) 
SVl  =RZ(K) 
SV2  =RZ(K+1) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 
WVFLF(J,K,II,KK  =DDD/((SH2-SH1)^(SV2-SV1)^ 
WVFFL  ( 1 1  ,  KK ,  J  ,  K )  =DDD/  (  ( GH2 -GHl )  -^  ( GV2 -GVl ) 
SWVFL  J,K)   =SWVFL(J,K)   +WVFLF( J , K, II , KK; 
SWVFF(II,KK)=SWVFF(II,KK)+WVFFL(II,KK, J,K: 

505  CONTINUE 
C 

WRITE(6,70) 

70  F0RHAT(2X,'  J,  K, SWVFL  (  J,  K)  ^^    II,KK,WVFLF  ( J ,K, II , KK) , ' , 
&  'WVFFL  (II,KK,J,K),  SWVFF  (II, KK)',/) 

DO  67  J=1,MJ 

DO  67  K=1,MK 

WRITE (6, 69)   J,  K, SWVFL  (  J,  K) 
69  F0RHAT(2K, '  J=',I3,'   K=',I3,'  SWVFL  = ' , IPEIO . 2, / ) 

WRITE(6,54)  ((II,KK,WVFLF  (  J,  K, II , KK) , WVFFL  (II, KK,  J,  K) , 
&  SWVFF  (II,KK) ,KK=1,MK), II=1,MI) 
67  CONTINUE 
C 

C  -^^^   4  ===  LEFT  WALL  VS  TOP  WALL,  (L  VS  T) 
C 

DO  506  J=1,HJ 

DO  506  K=1,HK 

DO  506  11=1, HI 

DO  506  JJ=1,MJ 

GHl  =RX  II) 

GH2  =RX  II+l) 

GVl  =RY(JJ) 

GV2  =RY(JJ+1) 

SVl  =RY(J) 

SV2  =RY  J+1) 

SH2  =RZ  HK+1)-RZ(K) 

SHI  =RZ(MK+1)-RZ(K+1) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

WVFLT(J,K,II,JJ  =DDD/((SH2-SH1)*  SV2-SV1~ ' 

WVFTL  II,JJ,J,K)=DDD/((GH2-GH1)*(GV2-GV1 

SWVFL  J, K)   =SWVFL(J,K)   +WVFLT( J , K, II , JJ' 

SWVFT ( I I , J J ) =SWVFT ( I I , J J ) +WVFTL ( I I , J J , J , K ) 

506  CONTINUE 
C 

WRITE (6,71) 

71  F0RHAT(2X,'  J,  K, SWVFL  (  J,  K)  **  II,JJ,WVFLT  ( J ,K, II , JJ) , ' , 
&  'WVFTL  (II,JJ,J,K),  SWVFT  (II, JJ)',/) 

DO  72  J=1,MJ 
DO  72  K=1,MK 

WRITE(6,74)   J,  K, SWVFL  (  J,  K) 
74  F0RMAT(2X,  '  J=',I3,'   K=M3,'  SWVFL  =  '  ,  IPElO  .  2,  /  ) 

WRITE(6,54)  ((II,JJ,WVFLT  (  J,  K, II , JJ) , WVFTL  (II, JJ,  J,  K) , 
&  SWVFL  (II,JJ),JJ=1,MJ) ,II=1,MI) 

72  CONTINUE 
C 

C  ***  5  ===  REAR  WALL  VS  BOTTOM  WALL,  (RE  VS  B) 
C 

DO  507  1=1, MI 

DO  507  K=1,MK 

DO  507  11=1, MI 

DO  507  JJ=1,MJ 

GVl  =RX(II) 

GV2  =RX(II+1) 

GHl  =RY(JJ) 

GH2  =RY(JJ+1) 

SVl  =RX(I) 

SV2  =RX(I+1) 

SHI  =RZ(K) 

SH2  =RZ(K+1) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

WVFREB(I,K,II,JJ)=DDD/((SH2-SH1)*(SV2-SV1)) 
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WVFBRE(II, JJ,I,K)=DDD/((GH2-GH1)*(GV2-GV1)) 
SWVFRE(I,K)  =SV;VFRE(I,K)  +WVFREB(  I  ,K,  II ,  JJ) 
SWVFB ( II , J J ) =SWVFB ( I I , J J ) +WVFBRE ( I I , J J , I , K ) 
507  CONTINUE 
C 

WRITE (6, 75) 

75  F0RHAT(2X,'  1,    K  ,  SWVFRE  (  I,  K)  ^''^   II ,  JJ  ,  WVFREB(  I ,  K,  II ,  JJ)  /  , 
&  'WVFBRE(II,JJ,I,K) ,  SWVFB  (II,JJ)',/) 

DO  76  1=1, MI 
DO  76  K=1,MK 
WRITE(6,78)   I,  K,SWVFRE(  I,  K) 

78  F0RHAT(2X,  '  I=M3,'   K=M3,'  SWVFRE=  '  ,  IPEIO  .  2  .  /  ) 

WRITE(6,54)  ((II, JJ,WVFREB(  I,  K, II , JJ) , WVFBRE ( II , JJ ,  I,  K) , 
&  SWVFB  (II,JJ) ,JJ=1,MJ) ,II=1,MI) 

76  CONTINUE 
C 

C  ^^^   6  ===  REAR  WALL  VS  RIGHT  WALL,  (RE  VS  R) 
C 

DO  509  1=1, MI 

DO  509  K=1,MK 

DO  509  JJ=1,MJ 

DO  509  KK=1,MK 

GHl  =RY(JJ) 

GH2  =RY(JJ+1) 

GVl  =RZ  KK) 

GV2  =RZ(KK+1) 

SH2  =RX  MI+1)-RX(I) 

SHI  =RX  MI+1)-RX(I+1) 

SVl  =RZ{K) 

SV2  =RZ(K+1) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

WVFRER(I,K,JJ,KK)=DDD/((SH2-SHlp(SV2-SVl' ' 

WVFRRE(  JJ,KK,I,K)=DDD/((GH2-GH1)'*^(GV2-GV1 

SWVFRE ( I, K)  =SWVFRE(I,K)  +WVFRER( I , K, JJ , KK; 

SWVFR(JJ,KK)=SWVFR(JJ,KK)+WVFRRE(JJ,KK,I,K, 
509  CONTINUE 
C 

WRITE(6,79) 

79  FORMAT  (2X,'  I,  K,  SWVFRE  (  I,  K)  *'^  JJ  ,KK,  WVFRER(I ,  K,  JJ  ,KK)  ,  '  , 
&  'WVFRRE(JJ,KK,I,K) ,  SWVFR  (JJ,KK)',/) 

DO  80  1=1, MI 
DO  80  K=1,MK 

WRITE (6, 82)   I,  K, SWVFRE (  I,  K) 
82  F0RMAT(2X,  '  I=M3,'   K=',I3,'  SWVFRE=  MPEIO  .  2  .  /  ) 

WRITE(6,54)  ((JJ,KK,WVFRER(  I,  K,  JJ  ,KK)  ,  WVFRRE  (,  JJ,KK,  I,  K)  , 
&  SWVFRE(JJ,KK) ,KK=1,MK),JJ=1,MJ) 

80  CONTINUE 
C 

C  ***  7  ===  REAR  WALL  VS  TOP  WALL,  (RE  VS  T) 
C 

DO  508  1=1, MI 

DO  508  K=1,MK 

DO  508  11=1, MI 

DO  508  JJ=1,MJ 

GVl  =RX(II) 

GV2  =RX  II+l) 

GHl  =RY(JJ) 

GH2  =RY(JJ+1) 

SVl  =RX(I) 

SV2  =RX(I+1) 

SH2  =RZ  MK+1)-RZ(K) 

SHI  =RZ(MK+1)-RZ(K+1) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl ,GV2 , GHl , GH2 ) 

WVFRET(I,K,II,JJ)=DDD/((SH2-SHl)'^(SV2-SVl'  ' 

wvftre(ii,jj,i,k)=ddd/((gh2-gh1)*(gv2-gv1 
swvfre ( i, k)  =swvfre(i,k)  +wvfret(i , k, ii , jj' 
swvft(ii,jj)=swvft(ii,jj)+wvftre(ii,jj,i,k; 
508  continue 

C 
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WRITE(6,83) 

83  FORMAT ( 2X, '  I,  K,SWVFRE(  I,  K)  ^^   II , JJ ,WVFRET(I ,K, II , JJ) , ' , 
&  'WVFTRE(II,JJ,I,K) ,  SWVFT  (II, JJ)',/) 

DO  84  1=1, MI 
DO  84  K=1,MK 
WRITE(6,86)   I,  K,SWVFRE(  I,  K) 

86  F0RMAT(2X,'  I=M3,'   K=',I3,'  SWVFRE=  '  ,  IPEIO  .  2  .  /  ) 

WRITE(6,54)  ((II,JJ,WVFRET(  I,  K, II , JJ) , WVFTRE (II , JJ ,  I,  K) , 
&  SWVFT  (II,JJ),JJ=1,MJ),II=1,MI) 

84  CONTINUE 
C 

C  ^**   8  ===  RIGHT  WALL  VS  BOTTOM  WALL,  (R  VS  B) 
C 

DO  512  J=1,MJ 

DO  512  K=1,MK 

DO  512  11=1, MI 

DO  512  JJ=1,MJ 

GH2  =RX(MI+1)-RX(II) 

GHl  =RX  MI+1)-RX(II+1) 

GVl  =RY(JJ) 

GV2  =RY(JJ+1) 

SVl  =RY(J) 

SV2  =RY(J+1) 

SHI  =RZ{K) 

SH2  =RZ(K+1) 

DDD  =PERPHD ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

WVFRB(J,K,II,JJ  =DDD/((SH2-SHl)'^(SV2-SVir 

WVFBR  II,JJ,J,K)=DDD/((GH2-GH1)'^(GV2-GV1) 

SWVFR(J,K)   =SWVFR(J,K)   +WVFRB( J , K , II , JJ' 

SWVFB(II,JJ)=SWVFB(II, JJ)+WVFBR(II,JJ,J,K; 
512  CONTINUE 
C  •  • 

WRITE (6, 87) 

87  F0RMAT(2X,'  I,  K,SWVFR  (  I,  K)  **  II,JJ,WVFRB  (I ,K, II , JJ) , ' , 
&  'WVFBR  (II,JJ,I,K),  SWVFB  (II,JJ)',/) 

DO  88  1=1, MI 
DO  88  K=1,MK 
WRITE(6,90)   I,  K,SWVFR  (  I,  K) 

90  F0RMAT(2X,  '  I=M3,'   K=',I3,'  SWVFR  =  '  ,  IPElO  .  2  . /) 

WRITE(6,54)  ((II,JJ,WVFRB  (  I,  K, II , JJ) , WVFBR  (II, JJ,  I,  K) , 
&  SWVFB  (II,JJ) ,JJ=1,MJ) ,II=1,MI) 

88  CONTINUE 
C 

C  ^■k:k    9  ===  RIGHT  WALL  VS  FRONT  WALL,  (R  VS  F) 
C 

DO  510  J=1,MJ 

DO  510  K=1,MK 

DO  510  11=1, MI 

DO  510  KK=1,MK 

GH2  =RX(MI+1)-RX(II) 

GHl  =RX  MI+1)-RX(II+1) 

GVl  =RZ  KK) 

GV2  =RZ(KK+1) 

SH2  =RY(HJ+l)-RY(J) 

SHI  =RY(MJ+1)-RY(J+1) 

SVl  =RZ(K) 

SV2  =RZ(K+1) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

WVFRF(J,K,II,KK)=DDD/((SH2-SH1)'^(SV2-SV1^  ^ 

WVFFR(II,KK, J,K)=DDD/((GH2-GH1)*(GV2-GV1 

SWVFR(J,K)   =SWVFR(J,K)   +WVFRF( J , K, II , KK] 

SWVFF(II,KK)=SWVFF(II,KK)+WVFFR(II,KK,J,K* 
510  CONTINUE 
C 

WRITE(6,91) 

91  F0RMAT(2X,'  J,  K, SWVFR  (  J,  K)  **  II,KK,WVFRF  ( J , K, II , KK) , ' , 
&  'WVFFR  (II,KK,J,K),  SWVFF  (II, KK)',/) 

DO  92  J=1,MJ 
DO  92  K=1,MK 
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WRITE(6,94)   J,  K,SWVFR  (  J,  K) 

94  F0RMAT(2X,  '  J=M3,'   K=M3,'  SWVFR  =MPE10.2./) 

WRITE(6,54)  ((II,KK,WVFRF  (  J,  K, II , KK) , WVFFR  (II, KK,  J,  K) 
&  SWVFF  (II,KK) ,KK=1,MK),II=1,MI) 
92  CONTINUE 
C 

C  i^^^    10  ===  RIGHT  WALL  VS  TOP  WALL,  (R  VS  T) 
C 

DO  511  J=1,MJ 

DO  511  K=1,MK 

DO  511  11=1, MI 

DO  511  JJ=1,MJ 

GH2  =RX(MI+1)-RX(II) 

GHl  =RX(MI+1)-RX(II+1) 

GVl  =RY(JJ) 

GV2  =RY(JJ+1) 

SVl  =RY(J) 

SV2  =RY(J+1) 

SH2  =RZ(MK+1)-RZ(K) 

SHI  =RZ(MK+1)-RZ(K+1) 

DDD  =PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 

WVFRT(J,K,II,JJ)=DDD/((5H2-SHl)^(SV2-SVr " 

WVFTR  I I , J J , J , K ) =DDD/ ( ( GH2 -GHl ) ^ ( GV2 -GVl 

SWVFR ( J, K)   =SWVFR(J,K)   +WVFRT( J ,K , II , JJ) 

SWVFT ( I I , J J ) =SWVFT ( I I , J J ) +WVFTR  ( I I , J J , J , K ) 
511  CONTINUE 
C 

WRITE(6,95) 

95  F0RMAT(2X,'  J,  K, SWVFR  (  J,  K)  ^*  II,JJ,WVFRT  ( J , K, II , JJ) , ' , 
&  'WVFTR  (II,JJ,J,K),  SWVFT  (II,JJ)',/) 

DO  96  J=1,MJ 
DO  96  K=1,HK 

WRITE (6, 98)   J,  K, SWVFR  (  J,  K) 
98  F0RNAT(2X,  '  J=',I3,'   K=',I3,'  SWVFR  =MPE10,2./) 

WRITE(6,54)  ((II,JJ,WVFRT  (  J,  K, II , JJ) , WVFTR  (II, JJ,  J,  K) , 
&  SWVFT  (II,JJ) , JJ=1,MJ) ,II=1,MI) 

96  CONTINUE 
C 

C  ^^-^    11  ===  FRONT  WALL  VS  BOTTOM  WALL,  (F  VS  B) 
C 

DO  593  1=1, MI 

DO  593  K=1,MK 

DO  593  11=1, MI 

DO  593  JJ=1,MJ 

GVl  =RX(II) 

GV2  =RX(II+1) 

GH2  =RY  MJ+1)-RY(JJ) 

GHl  =RY(MJ+1)-RY(JJ+1) 

SVl  =RX{I) 

SV2  =RX(I+1) 

SHI  =  RZ(K) 

SH2  =  RZ(K+1) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

WVFFB(I,K,II,JJ    =DDD/((SH2-SH1)*(5V2-SV1V 

WVFBF(II,JJ,I,K)=DDD/((GH2-GH1)*(GV2-GV1) 

SWVFF(I,K)      =SWVFF(I,K)       +WVFFB (I , K, II , JJ' 

SV/VFB  ( 1 1  ,  J  J )  =SWVFB  ( 1 1 ,  J  J )  +WVFBF  ( 1 1 ,  J  J ,  I ,  K , 
593    CONTINUE 
C 

WRITE(6,43) 

43  FORMAT (2X,'  I,  K, SWVFF  (  I,  K)  **  II,JJ,WVFFB  ( I , K, II , JJ) , ' , 
&  'WVFBF  (II,JJ,I,K),  SWVFB  (II, JJ)',/) 

DO  44  1=1, MI 
DO  44  K=1,MK 

WRITE (6, 46)   I,  K, SWVFF  (  I ,  K) 
46  F0RMAT(2X,  '  I=',I3,'   K=',I3,'  SWVFF  = '  , IPEIO  .  2  .  /  ) 

WRITE(6,54)  ((II,JJ,WVFFB  (  I,  K, II , JJ) , WVFBF  (II, JJ,  I,  K) 
&  SWVFB  (II,JJ) ,JJ=1,MJ) ,II=1,MI) 

44  CONTINUE 
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C  ***  12  ===  FRONT  WALL  VS  TOP  WALL,  (F  VS  T) 
C 

DO  513  1=1, MI 

DO  513  K=1,MK 

DO  513  11=1, MI 

DO  513  JJ=1,MJ 

GVl  =RX(II) 

GV2  =RX  II+l) 

GH2  =RY(MJ+1)-RY(JJ) 

GHl  =RY(MJ+1)-RY(JJ+1) 

SVl  =RX(I) 

SV2  =RX  I+l) 

SH2  =RZ(MK+1)-RZ(K) 

SHI  =RZ(MK+1)-RZ(K+1) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

wvfft  ( i ,  k ,  1 1 ,  j  j  =ddd/  (  ( sh2  -shi )  '^  ( sv2-  svl )  ^ 
wvftf  ii,jj,i,k)=ddd/((gh2-gh1)*(gv2-gv1) 
swvff(i,k)  =swvff(i,k)  +wvfft( i ,k, ii , jj; 
swvft(ii,jj)=swvft(ii,jj)+wvftf(ii,jj,i,k; 

513  continue 

c 

write (6, 47) 

47  FORMAT  (2X,'  I,  K,SWVFF  (  I ,  K)  ^'^  1 1,  JJ,  WVFFT  ( I ,  K  ,  II ,  JJ)  ,  '  , 
&  'WVFTF  (II,JJ,I,K),  SWVFT  (II, JJ)',/) 

DO  43  1=1, MI 
DO  48  K=1,MK 

WRITE(6,99)   I,  K,SWVFF  (  I,  K) 
99  F0RMAT(2X,  '  I=',I3,'   K=M3,'  SWVFF  =MPE10.2./) 

WRITE(6,54)  ((II, JJ, WVFFT  (  I,  K, II , JJ) , WVFTF  (II, JJ,  I,  K) , 
&  SWVFT  (II,JJ),JJ=1,MJ),II=1,MI) 

48  CONTINUE 


Q-k-k-k-k-k-k-k 
C 


RETURN 

END 

SUBROUTINE  HSTWAL(NN,KSS, IP, JP , KP) 

kkkkkkkkkkkkkkkkkkkk-kkkk-kkkkkkT^kk-k 


kkkkkkkkkkkkk 


COMMON  /BL3/  VFMXR(67 , 67 ) , SMXVFW(67 ) , SMXVFH(67 ) 
COMMON  /BL4/  WVFLR(3 , 3 , 3 , 3) , WVFLRE (3 , 3 ,4 , 3) , WVFLF(3 , 3 , 4 , 3 ) , 
&  WVFLT (3,3,4,3), WVFRRE (3,3,4,3), WVFRF (3,3,4,3), WVFRB (3,3,4,3' 
&  WVFRT  3,3,4,3, WVFRL   3,3,3,3), WVFFL (4,3,3,3, WVFFB  4,3,4,3' 
&  WVFFT  4,3,4,3, WVFFRE  4,3,4,3), WVFFR  4,3,3,3, WVFBT  4,3,4,3' 
&  WVFBL (4,3,3,3), WVFBRE  4,3,4,3, WVFBF  4,3,4,3), WVFBR  4,3,3,3' 
&  WVFTL (4,3,3,3), WVFTRE (4,3,4,3), WVFTF (4,3,4,3), WVFTR (4,3,3,3' 
&  WVFRET  (4,3,4,3),  WVFREF  ( 4,3,4,3,  WVFRER (4,3,3,3),  WVFTB  ( 4  ,  3  , 4 ',  3  )  , 
&  WVFREL(4,3,3,3) , WVFREB(4 , 3 , 4 , 3) , WVFLB (3 , 3 , 4 , 3) 


COMMON  /BL5/ 
&  VFHSR(3,3) ,VFHSF(4,3) ,VFHSRE 
&  VFRHS(3,3) ,VFFHS(4,3),VFREHS 
&  VFHSL (3,3), VFLHS (3,3) 


,VFHST(4,3) ,VFHSB(4,3 
,VFTHS(4,3) ,VFBHS(4,3 


COMMON  /BL6/  VFLHT (3 , 3) , VFRHT (3 , 3) , VFFHT(4 , 3) , VFREHT(4 , 3 ) , 
&  VFFHR(3,3) ,VFRHR(3,3) ,VFREHR(4,3) , VFTHR(4 , 3 ) , VFBHR(4 , 3 ) , 
'&  VFLHL(3,3),VFFHL(4,3) ,VFREHL(4,3) ,VFTHL(4,3) ,VFBHL(4,3) , 
&  VFLHRE(3,3) ,VFRHRE(3,3) ,VREHRE(4,3) ,VFTHRE(4,3) ,VFBHRE(4,3) , 
&  VFLHF (3,3), VFRHF (3,3), VFFHF (3,3), VFTHF (4,3), VFBHF (4,3), 
&  VFLHB  3,3) ,VFRHB(3,3) ,VFFHB(4,3) ,VFREHB(4,3) ,VFBHB(4,3) , 
&  VFTHT  4,3) 


COMMON  /BL7/  VFHTL (3 , 3) , VFHTR(3 , 3) , VFHTF(4 , 3 ) , VFHTRE (4 , 3 ) , 
&  .  VFHRF (3,3), VFHRR (3,3), VFHRRE (4,3), VFHRT (4,3), VFHRB (4,3), 
&  VFHLL(3,3),VFHLF(4,3) ,VFHLRE(4,3) ,VFHLT(4,3) ,VFHLB(4,3) , 
&  VFHREL(3,3) ,VFHRER(3,3) ,VHRERE(4,3) ,VFHRET(4,3) ,VFHREB(4,3) , 
&  VFHFL(3,3)  ,VFHFR(3,3)  ,VFHFF(3,-3)  ,  VFHFT  (4  ,  3)  ,  VFHFB  (4  ,  3)  , 
&  VFHBL  3,3  ,VFHBR(3,3),VFHBF(4,3) ,VFHBRE(4,3) ,VFHBB(4,3) , 
&  VFHTT(4,3) 
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c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


COMMON  /BL8/  X(22) ,7 ( 18) ,Z( 18) ,NOD(22 , 13, 18) , 
&     RX(5),RY(4),RZ(4),AREA(67),ZX(5),ZY(4),ZZ(4) 

COMMON  /BL9/  SWVFRE  (4  ,  3)  ,  SW.VFL(3  ,  3  )  ,  SWVFR(3  ,  3  )  ,  SWVFF  (4  ,  3  )  , 
&  SWVFT(4,3) ,SWVFB(4,3) 

COMMON  /BLIO/  NZ , DX, DY , DZ , DXY, DYZ, DZX, WC, DC,HC 

COMMON  /ELI /  NI , N J , NK , NIMl , N JMl , NKMl , NIM2 , NJM2 , NKM2 , 
&  MI , M J , MK , MI I , M J J , MKK , MIM , MIP , MJM , MJP , MKM , MKP , 
&  MI IM , MI IP , M J JM , M J JP , MKKM , MKKP , 

&   IREGNl , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 
&  MREGNl ,MREGN2 ,MREGN3 ,MREGN4 ,MREGN5 ,MREGN6 ,MREGN7 

COMMON  /BL2/  IB , IE , IBMl , IBPl , lEMl , lEPl , 
&  JB,JE,JBM1,JBP1,JEM1,JEP1, 

&  KB,KE,KBM1,KBP1,KEM1,KEP1 

COMMON/BLll/  MIIZ(9) ,MJJZ(9) ,MKKZ(9) ,IS(6) ,LTYPE(9,6) , 
&  LI(9) ,LJ(9) ,LK(9),AYZ(9),AXY(9),AZX(9) , 

&  NHSZ,ITHIN(9) , JTHIN(9 ) .KTHIN  9  , 

&  IHSB(9) ,NHSW(9) , JHSB(9) ,NHSD(9) ,KHSB(9) ,NHSH(9) 

DIMENSION  NN(6) 

^^*   THE  VIEW  FACTOR  BETWEEN  HEAT  SOURCE  AND  WALL  SURFACE  ^^^'^ 


***  THERE  ARE  6  TYPES  OF  SURFACES  CAN  BE  CONSIDERED  INSIDE  THE 
THE  ENCLOSURE 

LEFT    SIDE  OF  THE  HEAT  SOURCE 

-X  DIRECTION. 

RIGHT   SIDE  OF  THE  HEAT  SOURCE 

+X  DIRECTION. 

REAR    SIDE  OF  THE  HEAT  SOURCE 

-Y  DIRECTION. 

FRONT   SIDE  OF  THE  HEAT  SOURCE 

+Y  DIRECTION. 

BOTTOM  SIDE  OF  THE  HEAT  SOURCE 

-Z  DIRECTION. 

TOP     SIDE  OF  THE  HEAT  SOURCE 

+Z  DIRECTION. 


***  1ST  TYPE 
2ND  TYPE 
3RD  TYPE 
4TH  TYPE 
5TH  TYPE 
6TH  TYPE 


IT  SEES  ONLY  THE 

IT  SEES  ONLY  THE 

IT  SEES  ONLY  THE 

IT  SEES  ONLY  THE 

IT  SEES  ONLY  THE 

IT  SEES  ONLY  THE 


FIRST,  CALCULATE  THE  VIEW  FACTOR  BETWEEN  EACH  SIDE  OF  HEAT 
SOURCE  AND  WALL  SURFACE 

***  THE  1ST  TYPE  OF  SURFACE 

IF(NN(1) .EQ.O)  GO  TO  101 
MIIQ=MIIP 

^*  (A)  LEFT  SIDE  OF  THE  HEAT  SOURCE  (HL)  VS  WALL  SURFACE 


*  1. 


1 .   HL   VS 

L 

2.   HL   VS 

B 

3 .   HL  VS 

T 

4.   HL  VS 

RE 

5.   HL   VS 

F 

L   TO   HL 

GHZ=RX(MII) 
SH1=RY(MJJ) 

SH2=RY(MJJP) 

SV1=RZ(MKK) 

SV2=RZ(MKKP) 

DO  5  J=1,MJ 

DO  5  K=1,MK 
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GHl  =RY(J) 

GH2  =RY(J+1) 

GVl  =RZ(K) 

GV2  =RZ(K+1)- 

DDD  =PARLEL ( SHI , SH2 , SVl , SV2 , GVl /GV2 , GHl , 
&     GH2,GHZ)*GHZ^GHZ 

VFLHL(J,K)=DDD  / ( (GV2-GV1 ) *(GH2-GH1 ) 

VFHLL(J,K)=DDD  / ( (SV2-SV1 ) *(SH2-SH1 ) 
5  CONTINUE 
C 

WRITE(6,621) 
621  F0RMAT(/,5X, 'VFLHL(J,K) ,VFHLL,K=1,MK,  J=    1,   MJ)',/) 

WRITE(6,602)  ((  J,  K, VFLHL( J ,K) , VFHLL( J,K) ,K=1 ,MK) , J=l ,MJ) 
602  FORMAT(2I3,2E12.4) 
C 

C  *  2.   B   TO   HL 
C 

SH1=RZ(MKK) 

SH2=RZ(MKKP) 

SV1=RY(MJJ) 

SV2=RY(HJJP) 

DO  19  1  =  1,  MUM 

GH1=RX(MII)-RX(I+1) 

GH2=RX(MII)-RX(I) 

DO  19  J=1,MJ 

GV1=RY(J) 

GV2=RY(J+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFBHL(I,J)=DDD  / ( (GV2-GV1 )^(GH2-GH1 ' ' 

VFHLB(I  ,  J)=DDD  /  (  (SV2-5V1  )'^(SH2-SH1 ' 
19  CONTINUE 
C 

WRITE(6,623) 
623  F0RMAT(/,5X/VFBHL(I,J)  ,VFHLB,J=1,   MJ,  1  =  1  ,MIIM)  '  , /) 

WRITE(6,602)  ((  I,  J , VFBHL( I , J) , VFHLB(I , J) , J=l ,MJ) , 1=1 ,MIIM) 
C 

C   *    3.      T      TO      HL 
C 

SH1=RZ (MKP ) -RZ (MKKP ) 

SH2=RZ(MKP)-RZ(MKK) 

SV1=RY   MJJ) 

SV2=RY(MJJP) 

DO    21    1  =  1, MUM 

GH1=RX(MII)-RX(I+1) 

GH2=RX(MII)-RX(I) 

DO    21    J=1,MJ 

GV1=RY(J) 

GV2=RY(J+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFTHL(I,  J)=DDD  /  (  (GV2-GV1  )'^(GH2-GH1  ^  ^ 

VFHLT(I, J)=DDD  /((SV2-SV1)*(SH2-SH1 
21  CONTINUE 
C 

WRITE (6, 625) 
625  F0RMAT(/,5X, 'VFTHL(I, J) ,VFHLT,J=1,MJ,  1=1 ,MIIM) ' , / ) 

WRITE(5,602)  ((  I,  J , VFTHL( I , J) , VFHLT( I , J) , J=l ,MJ) , 1=1 ,MIIM) 
C 

C  *  4.  RE   TO  HL 
C 

SH1=RY(MJJ) 

SH2=RY(MJJP) 

SV1=RZ(MKK) 

SV2=RZ(MKKP) 

DO  18  1  =  1, MUM 

GH1=RX(MII)-RX(I+1) 

GH2=RX(MII)-RX(I) 

DO  18  K=1,MK 

GV1=RZ(K) 

GV2=RZ(K+1) 
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DDD=PERPMD ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFREHL(I,K)=DDD/((GV2-GV1)*(GH2-GH1)) 

VFHLRE(I,K)=DDD/((SV2-SV1)*(SH2-SH1)) 
18  CONTINUE 
C 

WRITE (6, 627) 
627  F0RMAT{/,5X, 'VFREHL(I,K) ,K=1,MK,  1=1 ,MIIM) ' , / ) 

WRITE(6,602)  ((  I,  K, VFREHL( I ,K) , VFHLRE (I , K) ,K=1 ,MK) , 1=1 ,MIIM) 
C 

C  '^  5.  F  TO  HL 
C 

SH1=RY(MJP)-RY(MJJP) 

SH2=RY(MJP)-RY(MJJ) 

SV1=RZ(MKK) 

SV2=RZ(MKKP) 

DO  22  1  =  1, MUM 

GH1=RX(MII)-RX(I+1) 

GH2=RX(MII)-RX(I) 

DO  22  K=1,MK 

GV1=RZ(K) 

GV2=RZ(K+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFFHL(I,K)=DDD/((GV2-GV1)^  GH2-GH1)) 

VFHLF(I,K)=DDD/((SV2-SV1)*(SH2-SH1)) 
22  CONTINUE 
C 

WRITE(6,629) 
629  FORMAT (/, 5X, 'VFREHL( I, K) , VFHLRE, K=1,MK,  1=1 ,MIIM) ' , /) 

WRITE(6,602)  ((  I,  K, VFREHL( I , K) , VFHLRE (I ,K) , K=l ,MK) , 1=1 ,MIIM) 
C 

C  **'^  THE  2ND  TYPE  OF  SURFACE 
C 

101  CONTINUE 

IF(NN(2) .EQ.O)  GO  TO  102 

MIIQ=MII+IP 
C 
c  ======================================================== 

C  **  (B)  RIGHT  SIDE  OF  THE  HEAT  SOURCE  (HR)  VS  WALL  SURFACE 
C  ======================================================== 

C 

C  1.  HR  VS  RE 
C  2.  HR  VS  B 
C  3.  HR  VS  T 
C  4.  HR  VS  F 
C  5.  HR  VS  R 
C  *  1.  RE  TO  HR 
C 

SH1=RY(MJJ) 

SH2=RY(MJJP) 

SV1=RZ(MKK) 

SV2=RZ(MKKP) 

DO  24  I=MIIQ,MI 

GH1=RX(I)-RX(MIIQ) 

GH2=RX(I+1)-RX(MIIQ) 

DO  24  K=1,MK 

GV1=RZ(K) 

GV2=RZ(K+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFREHR(I ,K  =DDD/( (GV2-GV1)^  GH2-GH1) ' 

VFHRRE(I,K)=DDD/((SV2-SV1)'^(SH2-SH1) 
24  CONTINUE 
C 

v;rite(6,63i) 
631  format (/,5x, 'vfrehr(i,k) , vfhrre , k=l ,mk, i=miip ,mi ) ' ,/) 

write(6,602)  ((  i,  k, vfrehr(i ,k) , vfhrre (i , k) , k=l ,hk) , i=miiq ,mi ) 

C 

C  *  2.  B  TO  HR 

C 

SH1=RZ(MKK) 
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SH2=RZ(HKKP) 

SV1=RY{MJJ) 

SV2=RY(MJJP) 

DO  20  I=MIIQ,MI 

GH1=RX(I)-RX(MIIQ) 

GH2=RX(I+1)-RX(HIIQ) 

DO  20  J=1,MJ 

GV1=RY(J) 

GV2=RY(J+1) 

DDD=PERPMD ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFBHR(I  ,  J)=DDD/(  (GV2-GVl)'*^(GH2-GHl)  ) 

VFHRB  ( I ,  J)=DDD/  ( (SV2-SV1 )  '^  (SH2-SH1 ) ) 
20  CONTINUE 
C 

WRITE(6,633) 
633  F0RMAT(/,5X, 'VFBHR(I,J) , VFHRB , J=l ,MJ , I=MIIP , MI ) ' ,/' 

WRITE(6,602)  ((  I,  J , VFBHR( I , J) , VFHRB ( I , J) , J=l ,MJ) , I=MIIQ ,MI ) 
C 

C  *  3.  T  TO  HR 
C 

SH1=RZ (MKP ) -RZ (MKKP) 

SH2=RZ(MKP)-RZ(MKK) 

SV1=RY(HJJ) 

SV2=RYU-IJ>JP) 

DO  23  I=MII0,MI 

GH1=RX(I)-RX(HIIQ) 

GH2=RX(I+1)-RX(MIIQ) 

DO  23  J=1,MJ 

GV1=RY(J) 

GV2=RY(J+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVI , GV2 , GHl , GH2 ) 

VFTHR( I , J)=DDD/ ( (GV2-GV1 ) *(GH2-GH1 ) ' 

VFHRT(I,J)=DDD/((SV2-SV1)*(SH2-SH1) 
23  CONTINUE 
C 

WRITE(6,635) 
635  FORMAT!/, 5X, 'VFTHR(I,J) , VFHRT , J=l ,MJ , I=MIIP ,MI ) ' ,/) 

WRITE(6,602)  ((  I,  J , VFTHR(I / J) , VFHRT(I , J) , J=l ,MJ) , I=MIIQ ,MI) 
C 

C  *  4.  F  TO  HR 
C 

SH1=RY(MJP)-RY(MJJP) 

SH2=RY(MJP)-RY(MJJ) 

SV1=RZ(MKK) 

SV2=RZ(MKKP) 

DO  25  I=MIIQ,MI 

GH1=RX(I)-RX(MIIQ) 

GH2=RX(I+1)-RX(MIIQ) 

DO  25  K=1,MK 

GV1=RZ(K) 

GV2=RZ(K+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFFHR(I,K)=DDD/((GV2-GV1)*  GH2-GH1)' 

VFHRF(I,K)=DDD/((SV2-SV1)^(SH2-SH1) 
25  CONTINUE 
C 

WRITE (6, 637) 
637  FORMAT (/,5X, 'VFFHR(I,K) , VFHRF ,K=1 ,MK, I=MIIP ,MI ) ' ,/) 

WRITE(6,602)  ((  I,  K, VFFHR( I ,K) , VFHRF(I ,K) , K=l ,MK) , I=MIIQ ,MI ) 
C 

C  ^  5.  R  TO  HR 
C 

GHZ=RX(MIP)-RX(MIIQ) 

SH1=RY{HJJ) 

SH2=RY(MJJP) 

SV1=RZ(MKK) 

5V2=RZ(MKKP) 

DO  6  J=1,MJ 

DO  6  K=1,MK 
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GHl  =RY(J) 
GH2  =RY(J+1) 
GVl  =RZ(K) 
GV2  =RZ(K+1) 

DDD=PARLEL ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , 
&    GH2,GHZ)^GHZ^GHZ 
VFRHR(J,K)=DDD/((GV2-GV1)*(GH2-GH1 
VFHRR(J,K)=DDD/((SV2-SV1)'*^(SH2-SH1 

6  CONTINUE 
C 

WRITE (6, 639) 
639  F0RMAT(/,5X, 'VFRHR(J,K),VFHRR,K=1,MK,J=1,   MJ)',/) 

WRITE(6,602)  ((  J,  K, VFRHR( J ,K) , VFHRR( J ,K) , K=l ,MK) , J=l ,MJ) 
C 

C  ***  THE  3RD  TYPE  SURFACE 
C 

102  CONTINUE 

IF(NN(3) .EQ.O)  GO  TO  103 

MJJQ=MJJP 
C 
C  ======================================================== 

C  *^    (C)  REAR  SIDE  OF  THE  HEAT  SOURCE  (HRE)  VS  WALL  SURFACE 
C  ======================================================== 

C 

C  1.  HRE  VS  RE 
C  2.  HRE  VS  L 
C  3.  HRE  VS  R 
C  4.  HRE  VS  B 
C  4.  HRE  VS  T 
C  *  1.  RE  TO  HRE 
C 

GHZ=RY(MJJ) 

SH1=RZ(MKK) 

SH2=RZ(MKKP) 

SV1=RX  Mil) 

SV2=RX(MIIP) 

DO  7  1=1, MI 

DO  7  K=1,MK 

GVl  =RX(I) 

GV2  =RX(l+l) 

GHl  =RZ  K) 

GH2  =RZ(K+1) 

DDD=PARLEL ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , 
&     GH2,GHZ)*GHZ*GHZ 

VREHRE(I,K)=DDD/((GV2-GV1)*(GH2-GH1) 

VHRERE(I,K)=DDD/((SV2-SV1)*(SH2-SH1) 

7  CONTINUE 
C 

WRITE(6,641) 
641  F0RMAT(/,5X, 'VREHRE(I,K) ,VHRERE,K=1,MK,I=  1,MI)',/) 

WRITE(6,602)  ((  I,  K, VREHRE (I , K) , VHRERE ( I ,K) ,K=1 ,MK) , 1=1 ,MI ) 
C 

C  *  2.  L  TO  HRE 
C 

SH1=RX(MII) 

SH2=RX(MIIP) 

SV1=RZ(MKK) 

SV2=RZ(HKKP) 

DO  26  J=1,MJJM 

GH1=RY(MJJ)-RY(J+1) 

GH2=RY(MJJ)-RY(J) 

DO  26  K=1,MK 

GV1=RZ(K) 

GV2=RZ(K+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFLHRE(J,K)=DDD/( (GV2-GV1)*  GH2-GH1~ ' 

VFHREL(J,K)=DDD/((SV2-SV1)'*^(SH2-SH1 
26  CONTINUE 
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WRITE (6, 643) 
643  FORMAT (/, 5X, 'VFLHRE(  J,  K) , VFHREL,K=1 ,MK, J=l ,MJJM) ' , / ) 

WRITE(6,602)  ((  J,  K, VFLHRE ( J , K) , VFHREL( J ,K) , K=l ,MK) , J=l ,MJJM) 
C 

C  *  3.  R  TO  HRE 
C 

SH1=RX(MIP)-RX(MIIP) 

SH2=RX(MIP)-RX(MII) 

SV1=RZ(MKK) 

SV2=RZ(MKKP) 

DO  27  J=1,MJJM 

GH1=RY(MJJ)-RY(J+1) 

GH2=RY(MJJ)-RY(J) 

DO  27  K=1,MK 

GV1=RZ(K) 

GV2=RZ(K+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFRHRE(J,K)=DDD/((GV2-GV1)'^(GH2-GH1'  ~ 

VFHRER(J,K)=DDD/((SV2-SV1)'^(SH2-SH1 

27  CONTINUE 
C 

WRITE(6,645) 
645  FORMAT (/,5X, 'VFRHRE(J,K) , VFHRER,K=1 ,MK, J=l ,MJJM) ' ,/) 

WRITE(6,602)  ((  J,  K, VFRHRE ( J , K) , VFHRER( J , K) , K=l ,MK) , J=l ,MJJM) 
C 

C  *  4.  B  TO  HRE 
C 

SH1=RZ(MKK) 

SH2=RZ(MKKP) 

SV1=RX(MII) 

SV2=RX(MIIP) 

DO  28  J=1,.MJJM 

GH1=RY(MJJ)-RY(J+1) 

GH2=RY(MJJ)-RY(J) 

DO  28  1=1, MI 

GV1=RX(I) 

GV2=RX(I+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFBHRE(I,J)=DDD/((GV2-GVl)'^(GH2-GHir 

VFHREB(I,J)=DDD/((SV2-SV1)*(SH2-SH1) 

28  CONTINUE 
C 

WRITE (6, 647) 
647  FORMAT!/, 5X, 'VFBHRE(I,J) , VFHREB , J=l ,MJJM, 1=1 ,MI ) ' ,/) 

WRITE(6,602)  ((  I,  J, VFBHRE (I , J) , VFHREB( I , J) , J=l ,MJJM) , 1=1 ,MI ) 
C 

C  ''^  5.  T  TO  HRE 
C 

SH1=RZ(MKP)-RZ(MKKP) 

SH2=RZ(MKP)-RZ(MKK) 

SV1=RX{MII) 

SV2=RX(MIIP) 

DO  29  J=1,MJJM 

GH1=RY(HJJ)-RY(J+1) 

GH2=RY(MJJ)-RY(J) 

DO  29  1=1, MI 

GV1=RX(I) 

GV2=RX(I+1) 

DDD=PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 

VFTHRE ( I , J)=DDD/ ( (GV2-GV1 ) ^ (GH2-GH1 ^  ^ 

VFHRET(I,J)=DDD/((SV2-SV1)^(SH2-SH1 

29  CONTINUE 
C 

WRITE(6,649) 
649  FORMAT (/,5X, 'VFTHRE (I, J) , VFHRET , J=l ,MJJM,  1  =  1  ,MI )  '  ,/) 

WRITE(6,602)  ((  I,  J , VFTHRE ( I , J) , VFHRET( I , J) , J=l ,MJJM) , 1=1 ,MI ) 
C 

C  ***  THE  4TH  TYPE  SURFACE 
C 
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103  CONTINUE 

IF(NN(4).EQ.O)  GO  TO  104 

MJJQ=MJJ+JP 
C 
C  ======================================================== 

C  ^^    (D)  FRONT  SIDE  OF  THE  HEAT  SOURCE  (HF)  VS  WALL  SURFACE 
C  ======================================================== 

C 

C  1.  HF  VS  F 
C  2.  HF  VS  L 
C  3.  HF  VS  R 
C  4.  HF  VS  B 
C  5.  HF  VS  T 
C  *  1.  F  TO  HF 
C 

GHZ=RY(MJP)-RY(MJJQ) 

SH1=RZ  MKK) 

SH2=RZ(HKKP) 

SV1=RX(MII) 

SV2=RX(MIIP) 

DO  8  1=1, HI 

DO  8  K=1,HK 

GHl  =RZ(K) 

GH2  =RZ  K+1) 

GVl  =RX(I) 

GV2  =Ra(I+1) 

DDD=PARLEL (SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , 
&    GH2,GHZ)*GHZ^GHZ 

VFFHF(I ,K)=DDD/( (GV2-GV1)*(GH2-GH1) 

VFHFF(I,K)=DDD/((GV2-GV1)'^(GH2-GH1) 
8  CONTINUE 
C 

WRITE(6,651) 
651  FORMAT!/, 5X, 'VFFHF(I,K) , VFHFF , K=l ,MK, 1=1 ,MI ) ' ,/) 

WRITE(6,602)  ((  I,  K, VFFHF(I ,K) , VFHFF(I ,K) ,K=1 ,MK) , 1=1 ,MI) 
C 

C  *  2.  L  TO  HF 
C 

SH1=RX(MII) 

SH2=RX  MIIP) 

SV1=RZ  MKK) 

SV2=RZ(MKKP) 

DO  30  J=MJJQ,MJ 

GH1=RY(J)-RY(MJJQ) 

GH2=RY(J+1)-RY(MJJQ) 

DO  30  K=1,MK 

GV1=RZ(K) 

GV2=RZ(K+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFLHF(J,K)=DDD/((GV2-GV1)'^(GH2-GH1)~ 

VFHFL(J,K)=DDD/((SV2-SV1)*(SH2-SH1) 
30  CONTINUE 
C 

WRITE (6, 653) 
653  FORMAT (/,5X, 'VFLHF(J,K) , VFHFL , K=l ,MK , J=MJJP ,MJ) ' ,/) 

WRITE(6,602)  ((  J,  K, VFLHF( J ,K) , VFHFL( J , K) , K=l ,MK) , J=MJJQ,MJ) 


c 

C  *  3. 

R  TO  HF 

c 

SH1=RX(MIP)-RX(MIIP) 
SH2=RX  MIP)-RX(MII) 

SV1=RZ  MKK) 

SV2=RZ(MKKP) 

DO  31  J=MJJQ,MJ 

GH1=RY(J)-RY(MJJQ) 

GH2=RY(J+1)-RY(MJJQ) 

DO  31  K=1,MK 

GV1=RZ(K) 
GV2=RZ(K+1) 
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DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFRHF(J,K)=DDD/((GV2-GV1)'^(GH2-GH1)' 

VFHFR(J,K)=DDD/((SV2-SV1)*(SH2-SH1) 

31  CONTINUE 
C 

WRITE(6,655) 
655  F0RMAT(/,5X, 'VFRHF(J,K) , VFHFR ,K=1 ,MK , J=MJJP ,MJ) ' , / ) 

WRITE(6,602)  ((  J,  K, VFRHF( J ,K) , VFHFR( J , K) , K=l ,MK) , J=MJJQ ,MJ) 
C 

C  *  4.  B  TO  HF 
C 

SH1=RZ(MKK) 

SH2=RZ(MKKP) 

SV1=RX(MII) 

SV2=RX(MIIP) 

DO  32  J=MJJQ,MJ 

GH1=RY(J)-RY(MJJQ) 

GH2=RY(J+1)-RY(MJJQ) 

DO  32  1=1, MI 

GV1=RX(I) 

GV2=RX(I+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFBHF(I,J)=DDD/((GV2-GV1)^(GH2-GH1)' 

VFHFB(I,J)=DDD/((SV2-SV1)'^(SH2-SH1) 

32  CONTINUE 
C 

WRITE(6,657) 
657  F0RNAT(/,5X, 'VFBHF(I,J) , VFHFB , J=MJJP ,MJ , 1=1 ,MI ) ' ,/) 

WRITE(6,602)  ((  I,  J , VFBHF( I , J) , VFHFB( I , J) , J=MJJQ ,MJ) , 1=1 ,HI ) 
C 

C  *  5.  T  TO  HF 
C 

SH1=RZ(MKP)-RZ(MKKP) 

SH2=RZ(MKP)-RZ(MKK) 

SV1=RX  Mil) 

SV2=RX(MIIP) 

DO  33  J=MJJ0,MJ 

GH1=RY(J)-RY(MJJQ) 

GH2=RY(J+1)-RY(MJJQ) 

DO  33  1=1, MI 

GV1=RX(I) 

GV2=RX(I+1) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFTHF(I,J)=DDD/((GV2-GV1)*(GH2-GH1)' 

VFHFT ( I , J ) =DDD/ ( ( SV2-SV1 ) * ( SH2-SH1 ) 

33  CONTINUE 
C 

WRITE(6,659) 
659  F0RMAT(/,5X, 'VFTHF(I,J) ,VFHFT,J=MJJP,MJ,I=1,   MI)',/) 

WRITE(6,602)  {(  I,  J , VFTHF(I , J) , VFHFT(I , J) , J=MJJQ ,MJ) , 1=1 ,MI ) 
C 

C  ***  THE  5TH  TYPE  SURFACE 
C 

104  CONTINUE 

IF(NN(5) .EQ.O)  GO  TO  105 

MKKQ=MKKP 
C 
c  ========================================================= 

C  *  (E)  BOTTOM  SIDE  OF  THE  HEAT  SOURCE  (HB)  VS  WALL  SURFACE 
C  ======================================================== 

C  1.  HB  VS  RE 
C  2.  HB  VS  F 
C  3.  HB  VS  R 
C  4.  HB  VS  L 
C  5.  HB  VS  B 
C  *  1.  RE  TO  HB 
C 

SH1=RY(MJJ) 

SH2=RY(MJJP) 
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SV1=RX(MII) 

SV2=RX(MIIP) 

DO  17  1=1, MI 

DO  17  K=1,MKKM 

GVl  =RX(I) 

GV2  =RX(I+1) 

GH1=RZ(MKK)-RZ(K+1) 

GH2=RZ(I!KK)-RZ(K) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFREHB(I,K)=DDD/((GV2-GV1)^(GH2-GH1' ' 

VFHBRE(I,K)=DDD/((SV2-SV1)*(SH2-SH1 
17  CONTINUE 
C 

WRITE(6,611) 
611  F0RMAT(/,5X, 'VFREHB(I,K) ,VFHBRE,K=1,MKKM,I=    1,   MI)',/) 

WRITE(6,602)  ((  I,  K, VFREHB ( I , K) , VFHBRE (I ,K) ,K=1 ,MKKM) , 1=1 ,MI ) 
C 
C  *  2.  F  TO  HB 

C  ■    '  - 

sh1=ry(mjp)-ry(mjjp) 
sh2=ry(mjp  -ry(mjj) 
svi=rx(mii) 
sv2=rx(miip) 

DO  15  1=1, HI 

DO  15  K=1,MKKM 

GV1=RX(I) 

GV2=RX  I+l) 

GH1=RZ  MKK  -RZ(K+1) 

GH2=RZ(MKK)-RZ(K) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFFHB(I,K)=DDD/((GV2-GV1)*(GH2-GH1  ) 

VFHBF(I,K)=DDD/((SV2-SV1)^(SH2-SH1)) 
15  CONTINUE 
C 

WRITE(6,613) 
613  FORMAT (/, 5X, 'VFFHB  (  I,  K),VFHBF,  K=l ,MKKM, 1=1 ,MI ) ' , / ) 

WRITE(6,602)  ((  I,  K, VFFHB (I , K) , VFHBF( I ,K) ,K=1 ,MKKM) , 1=1 ,MI) 
C 

C  *   3.   R  TO  HB 
C 

SH1=RX(MIP)-RX(MIIP) 

SH2=RX(MIP)-RX(MII) 

SV1=RY(MJJ) 

SV2=RY(MJJP) 

DO  13  J=1,MJ 

DO  13  K=1,MKKM 

GVl  =RY(J) 

GV2  =RY(J+1) 

GH1=RZ(MKK)-RZ(K+1) 

GH2=RZ(MKK)-RZ(K) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFRHB(J,K)=DDD  / ( (GV2-GV1 )*(GH2-GH1 ) ~ 

VFHBR(J,K)=DDD  / ( (SV2-SV1 )*(SH2-SH1 ) 
13  CONTINUE 
C 

WRITE (6, 615) 
615  F0RMAT(/,5X, 'VFRHB(J,K) ,VFHBR,K=1,MKKM,J=1,   MJ)',/) 

WRITE(6,602)  ((  J,  K, VFRHB( J , K) , VFHBR( J ,K) ,K=1 ,MKKM) , J=l ,MJ)  ■ 


C 

C  *  4. 

L   TO   HB 

C 

SH1=RX(MII) 

SH2=RX  MIIP) 

SV1=RY  MJJ) 

SV2=RY(MJJP) 

DO  11  J=1,MJ 

DO  11  K=1,MKKM 

GV1=RY(J) 
GV2=RY(J+1) 
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GH1=RZ(MKK)-RZ(K+1) 
■   GH2=RZ(MKK)-RZ(K) 

DDD=PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFLHB(J,K)=DDD  / ( (GV2-GV1 )^(GH2-GH1 " ^ 

VFHBL(J,K)=DDD  / ( (SV2-SV1 p (SH2-SH1 
11  CONTINUE 
C 

WRITE (6, 617) 
617  FORMAT!/, 5X, 'VFLHB(J,K) ,VFHBL,K=1,MKKM,  J=    1,   MJ)',/) 

WRITE(6,602)  ((  J,  K, VFLHB( J , K) , VFHBL( J, K) ,K=1 ,MKKM) , J=l ,MJ) 
C 

C  *  5.   B   TO   HB 
C 

GHZ=RZ(MKK) 

SH1=RX  Mil) 

SH2=RX  MIIP) 

SV1=RY  MJJ) 

SV2=RY(MJJP) 

DO  9  1=1, MI 

DO  9  J=1,MJ 

GHl  =RX(I) 

GH2  =RX  I+l) 

GVl  =RY(J) 

GV2  =RY(J+1) 

DDD  =PARLEL(SH1,SH2,SV1,SV2,GV1,GV2,GH1, 
&     GH2,GHZ)'^GHZ'^GHZ 

VFBHB(I,J)=DDD/((GV2-GV1)*(GH2-GH1) 

VFHBB(I,J)=DDD/((SV2-SV1)*(SH2-5H1) 
9  CONTINUE 
C 

WRITE(6,619) 
619  F0RMAT(/,5X, 'VFBHB(I,J) ,VFHBB,J=1,MJ,  1=    1,   MI)',/) 

WRITE(6,602)  ((  I,  J , VFBHB ( I , J) , VFHBB( I , J) , J=l ,MJ) , 1=1 ,MI ) 
C 

C  **^   THE  6TH  TYPE  OF  SURFACE 
C 

105  CONTINUE 

IF(NN(6) .EQ.O)  GO  TO  106 

MKKQ=MKK+KP 
C 
C  ======================================================== 

C  ^^-^    (F)  TOP  SIDE  OF  HEAT  SOURCE  (HT)  VS  WALL  SURFACE 

C  ======================================================== 

C  1.   HT   VS   L 

C  2.   HT   VS   R 

C         3.   HT   VS   F 
C         4.   HT   VS   RE 
C  5.   HT   VS   T 

C  *  1.   L  TO  HT 
C 

SH1=RX(MII) 

SH2=RX  MIIP) 

SV1=RY(MJJ) 

SV2=RY(HJJP) 

DO  4  J=1,MJ 

DO  4  K=MKKQ,MK 

GVl  =RY(J) 

GV2  =RY(J+1) 

GHl  =RZ(k)-RZ(MKKQ) 

GH2  =RZ(K+1)-RZ(MKKQ) 

DDD  =PERPND (SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFLHT(J,K)=DDD  /  (  (GV2-GV1  '^  GH2-GH1  ) 

VFHTL(J,K)=DDD  / ( (SV2-SV1 ) *(SH2-SH1  ) 
4  CONTINUE 
C 

WRITE(6,601) 
601  FORMAT (/, 5X, 'VFLHT  (  J,  K),VFHTL,  K=MKKP ,   MK,  J=    1,   MJ)',/) 

WRITE(6,602)  ((  J,  K, VFLHT( J ,K) , VFHTL( J , K) , K=MKKQ ,MK) ,  J=  1,MJ) 
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C  *  2.  R  TO  HT 
C 

SH1=RX(MIP)-RX(MIIP) 

SH2=RX(MIP  -RX(MII) 

SV1=RY(MJJ) 

SV2=RY(MJJP) 

DO  12  J=1,MJ 

DO  12  K=MKKQ,MK 

GVl  =RY(J) 

GV2  =RY(J+1) 

GHl  =RZ(K)-RZ(MKKQ) 

GH2  =RZ(K+1)-RZ(MKKQ) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFRHT(J,K)=DDD  / ( (GV2-GV1 ) * (GH2-GH1 ) ) 

VFHTR(J,K)=DDD  /  ( (SV2-SV1 ) '^(SH2-SH1 ) ) 
12  CONTINUE 


WRITE (6, 603) 
FORMAT (/,5X, ' 
WRITE(6,602)  ((  J ,  K, VFRHT ( J , K) , VFHTR( J ,K) , K=MKKQ,MK) ,  J=i,MJ; 


603  FORMAT  <:/,5X,;VFRHT  (  J ,  K)  ,yFHTR,  K=MKKP ,  _  MK,  J=    1_,   MJ)'.,/) 


C 

C  '^  3.  F  TO  HT 

C 

SH1=RY(MJP)-RY(MJJP) 

SH2=RY(HJP)-RY(MJJ) 

SV1=RX  HII) 

SV2=RX(HIIP) 

DO  14  1=1, MI 

DO  14  K=MKKQ,MK 

GVl  =RX(I) 

GV2  =RX  I+l) 

GHl  =RZ  K)-RZ(MKKQ) 

GH2  =RZ(K+l)-RZ(MKKg) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 , GHl , GH2 ) 

VFFHT(I ,K)=DDD  /( (GV2-GV1)^(GH2-GH1  ' 

VFHTF(I,K)=DDD  / ( (SV2-SV1 ) *(SH2-SH1 ) 
14  CONTINUE 
C 

WRITE (6, 605) 
605  F0RMAT(/,5X, 'VFFHT(I,K) ,VFHTF,K=MKKP,MK,  1=    1,  .MI)',/) 

WRITE(6,602)  ((  I,  K, VFFHT( I , K) , VFHTF( I ,K) , K=MKKQ ,MK) ,  1=1, MI) 
C 

C  *  4.  RE  TO  HT 
C 

SH1=RY(MJJ) 

SH2=RY(MJJP) 

SV1=RX(MII) 

SV2=RX(MIIP) 

DO  16  1=1, MI 

DO  16  K=MKKQ,MK 

GVl  =RX(I) 

GV2  =RX(I+1) 

GHl  =RZ(K)-RZ(MKKO) 

GH2  =RZ(K+1)-RZ(MKKQ) 

DDD  =PERPND ( SHI , SH2 , SVl , SV2 , GVl , GV2 . GHl , GH2 ) 

VFREHT(I,K)=DDD/((GV2-GV1)^(GH2-GH1)) 

VFHTRE(I,K)=DDD/((SV2-SV1)*(SH2-SH1)) 
16  CONTINUE 
C 

WRITE (6, 607) 
607  F0RMAT(/,5X, 'VFREHT(I,K) , VFHTRE , K=MKKP ,MK, 1=1 ,   MI) ' ,/) 

WRITE (6, 602)  ((I,  K, VFREHT( I , K) , VFHTRE (I , K) ,K=MKKQ ,MK) , 1=1 ,MI) 
C 

C  *  5.  T  TO  HT 
C 

GHZ=RZ(MKP)-RZ(MKKQ) 

SH1=RX  Mil) 

SH2=RX(MIIP) 

SV1=RY(MJJ) 
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SV2=RY(MJJP) 
DO  10  1=1, MI 
DO  10  J=1,MJ 
GHl  =RX(I) 
GH2  =RX(I+1) 
GVl  =RY(J) 
GV2  =RY(J+1) 

DDD  =PARLEL ( SHI , SH2 , SVl , 5V2 , GVl , GV2 , GHl , GH2 , GHZ ) 
&     '^GHZ^GHZ 
VFTHT(I,J)=DDD/((GV2-GV1)*(GH2-GH1)) 
VFHTT(I,J)=DDD/((SV2-SV1)*(SH2-SH1)) 
10  CONTINUE 
C 

WRITE(5,609) 
609  F0RHAT(/,5X, 'VFTHT(I,J),VFHTT,J=1,   M J ,  I=.  I,      MI)',/) 

WRITE(6,602)  ((  I,  J , VFTHT(I , J) , VFHTT(I , J) , J=l ,MJ) , 1=1 ,MI ) 
106  CONTINUE 
C 

c 

C  -^^^   THE  SECOND  STEP  IS  TO  TREAT  ALL  THE  HEAT  SOURCE  SURFACE  TO  BE 
C      ONE  RADIATION  EXCHANGE  WALL  ZONE 

c 

C  -^^^   SUM  THEM  UP  TO  GET  THE  REAL  VIEW  FACTORS  BETWEEN  THE  HEAT  SOURCE 

C     AND  THE  WALL  ZONES 

C 

C  -^-^    SVFHSW:  SUMMATION  OF  VIEW  FACTOR  FROM  HEAT  SOURCE  TO  ALL  WALL  ZONES 

C  **    SVFWHS:  SUMMATION  OF  VIEW  FACTOR  FROM  ALL  WALL  ZONES  TO  HEAT  SOURCE 

C 

SVFWHS=0. 

SVFHSW=0. 

c 

DO  201  J=1,MJ 

DO  201  K=1,MK 
C  **  2  VERTICAL  WALLS  TO  HEAT  SOURCE 

VFRHS(J,K)=VFRHF(J,K)+VFRHRE(J,K)+VFRHR(J,K)+VFRHT(J,K)+VFRHB(J,K 

VFLHS(J,K)=VFLHF(J,K)+VFLHRE(J,K)+VFLHL(J,K)+VFLHT(J,K)+VFLHB(J,K 

S VFVJHS     =S VFWHS+VFRHS  ( J  ,  K )  +VFLHS  ( J  ,  K ) 
C  *^   HEAT  SOURCE  TO  2  VERTICAL  TANK  WALLS 

VFHSR(J,K)=VFHFR(J,K)+VFHRER(J,K) 
&     +VFHRR(J,K)+VFHTR  ( J , K)+VFHBR( J ,K) 

VFHSL(J,K)=VFHFL(J,K)+VFHREL(J,K) 
&     +VFHLL(J,K)+VFHTL  ( J ,K)+VFHBL( J, K) 

SVFHSW     =SVFHSW+VFHSR ( J , K ) +VFHSL ( J , K) 
201  CONTINUE 

DO  203  1=1, MI 

DO  203  K=1,MK 
C  **  2  VERTICAL  WALLS  TO  HEAT  SOURCE 

VFREHS ( I , K ) =VFREHL ( I , K ) +VREHRE ( I , K) +VFREHR ( I , K ) +VFREHT ( I , K) 
&  +VFREHB(I.K) 

VFFHS ( I , K )  =VFFHF ( I , K ) +VFFHL ( I , K ) +VFFHR ( I , K ) +VFFHT ( I , K ) +VFFHB ( I , K ) 

SVFWHS      =SVFV/HS+VFREHS  ( I ,  K)  +VFFHS  ( I ,  K) 
C  **  HEAT  SOURCE  TO  2  VERTICAL  TANK  WALLS 

VFHSRE ( I , K ) =VFHLRE ( I , K ) +VHRERE ( I , K ) 
&      +VFHRRE(I,K)+VFHTRE(I,K)+VFHBRE(I,K) 

VFHSF(I,K)  =VFHFF(I,K)+VFHLF(I,K) 
&      +VFHRF ( I , K ) +VFHTF ( I , K ) +VFHBF ( I , K ) 

SVFHSW     =SVFHSW+VFHSRE(I,K)+VFHSF(I,K) 
203  CONTINUE 
C 

DO  202  1=1, MI 

DO  202  J=1,MJ 
C  *^  2  HORIZONTAL  WALLS  TO  HEAT  SOURCE 

VFTHS ( I , J ) =VFTHF ( I , J ) +VFTHT ( I , J ) +VFTHL ( I , J ) +VFTHRE ( I , J ) +VFTHR ( I , J ) 

VFBHS ( I , J ) =VFBHB ( I , J ) +VFBHRE ( I , J ) +VFBHF ( I , J ) +VFBHL ( I , J ) +VFBHR ( I , J ) 

SVFWHS     =S VFWHS+VFTHS ( I , J ) +VFBHS ( I , J ) 
C  **  HEAT  SOURCE  TO  2  HORIZONTAL  WALLS 

VFHST ( I , J ) =VFHFT ( I , J ) +VFHTT ( I , J ) 
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&      +VFHLT ( I , J ) +VFHRET ( I , J ) +VFHRT ( I , J ) 

VFHSB ( I , J ) =VFHBB ( I , J ) +VFHREB ( I , J ) 
&      +VFHFB ( I , J ) +VFHLB ( I , J ) +VFHRB ( I , J ' 
SVFHSW     =SVFHSW+VFHSB ( I , J ) +VFHST \l,f 
202  CONTINUE 
C 

C  ^^^   PRINT  OUT  THE  VIEW  FACTORS 
C 

WRITE(6,554)  SVFHSW , SVFWHS 
554  FORHAT(/,'   SUMMATION  OF  VIEW  FACTORS  FROM  ALL  HEAT  SOURCE', 
&  '  SURFACES  TO  ALL  INTERIOR  WALLS,  SVFHSW  =',E11.4,/, 
&         '   SUMMATION  OF  VIEW  FACTORS  FROM  ALL  INTERIOR  WALLS ' , 
&  '  TO  ALL  HEAT  SOURCE  SURFACES    ,  SVFWHS  =',E11.4,/) 
C 

DO  34  J=1,MJ 
WRITE(6,35)  J 

35  F0RMAT(/,2X,  '  J=M2,3X, 'VFHSL  ',5X,'VFHSR  ',5X, 
&  'VFLHS  ' ,5X, 'VFRHS  ' ,/) 

DO  34  K=1,MK 

WRITE(6,36)K,VFHSL(J,K) ,VFHSR(J,K) ,VFLHS(J,K) ,VFRHS(J,K) 

36  F0RMAT(2X, 'K=' ,12,  4(1X,E10.4)) 
34  CONTINUE 

DO  37  1=1, MI 
WRITE (6, 38)  I 

38  F0RMAT(/,2X, 'I=M2,3X, 'VFHSF  ',5X, 

&  'VFHSRE' ,5X, 'VFFHS  ' , 5X, ' VFREHS ' , / ) 
DO  37  K=1,MK 
WRITE(6,39)K,VFHSF(I,K) , VFHSRE ( I, K) ,VFFHS(I,K) , VFREHS ( I, K) 

39  FORMAT ( 2X, 'K= ',12,  4(1X,E10.4)) 

37  CONTINUE 
C 

DO  40  1=1, MI 

WRITE(6,42)  I 
42  F0RMAT(/,2X, '1=' ,I2,3X, 'VFHST  ',5X, 'VFHSB  ',5X,'VFTHS  ',5X, 
&    'VFBHS' ,/) 

DO  40  J=1,MJ 

WRITE(6,41)J,VFHST(I,J) ,VFHSB(I,J) ,VFTHS(I,J) ,VFBHS(I,J) 
41  FORMAT (2X, ' J= ' , 12 , 4( IX, ElO . 4) ) 

40  CONTINUE 
C 

RETURN 
END 
C 

c 

FUNCTION  PERPND(GX1,GX2,GY1,GY2,GV1,GV2,GH1,GH2) 
C     IMPLICIT  REAL*8(A-H,0-Z) 
C 

DIMENSION  GX(2) ,GY(2) ,GV(2) ,GH(2) 
C 

C  ^^^   THIS  FUNCTION  IS  USED  TO  CALCULATE  THE  VIEW  FACTOR  BETWEEN 
C      TWO  PERPENDICULAR  RECTANGULAR  SURFACES 
C 

PERPND  =0. 

IF(GX1.LT.1.E-10.AND.  GHl .LT . 1 . E-10  .AND.  GYl.EQ.GVl)  GO  TO  11 
C 

GX(1)=GX1 

GX  2  =GX2 

GY  1)=GY1 

GY(2)=GY2 

GV(1)=GV1 

GV(2)=GV2 

gh(i)=ghi 

GH(2)=GH2 
DO  4  L=l,2 
DO  4  1=1,2 
DO  4  J=l,2 
DO  4  K=l,2 
BJK=GY(J)-GV(K) 
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BJK2=BJK'*'BJK 

ALI=SQRT(GH(L)*GH(L)+GX(I)*GX(I)) 

ALI2=ALI^ALI 

ABSQ=SQRT(ALI2+BJK2) 

IF(ABSQ.EQ.0.)GO  TO  10 

CCC=ALOG(ABSQ) 

GO  TO  18 

10  CCC=0. 
18  CONTINUE 

ICOEF=I+J+K+L 
IF(ALI.EQ.0.)GO  TO  7 
DDD=  ALI2*AL0G(ALI) 
BBB=ALI*ATAN(BJK/ALI) 
GO  TO  8 

7  DDD=0. 

BBB=0. 

8  CONTINUE 

PERFND  =PERPND  +( (-1 . )**ICOEF)*(BJK*BBB- . 5*(ALI2- 
&  BJK2)*CCC   +.5*  DDD)/6.283 
4  CONTINUE 
GO  TO  12 

11  CONTINUE 
C 

W=GX2-GX1 

DL=GY2-GY1 

H=GH2-GH1 

W=W/DL 

H=H/DL 

W2=W'^W 

H2=H*H 

W2P1=1.+W2 

H2P1=1.+H2 

W2H2=W2+H2 

W2H2P1=1.+W2+H2 

XXX=(W2*W2H2P1/(W2P1'*^W2H2))**W2 

YYY=(H2'*^W2H2P1/(H2P1'^W2H2))**H2 

PERPND=(W^ATAN(1./W}+H*ATAN(1./H)-SQRT(W2H2)* 
&       ATAN(1./SQRT(W2H2))  +  .25*AL0G(W2P1'^H2P1/W2H2P1*XXX*YYY)) 
&       *DL*DL/3. 14159 
12   CONTINUE 
C 

RETURN 

END 

C 

FUNCTION  PARLEL (XHl , XH2 , YVl , YV2 , GVl , GV2 , GHl , GH2 , GHZ ) 
C     IMPLICIT  REAL^8(A-H,0-Z) 
C 

DIMENSION  GX(2) ,GY(2) ,GV(2) ,GH(2) 
C 

C  '^**  THIS  FUNCTION  IS  USED  TO  CALCULATE  THE  VIEW  FACTOR  BETWEEN 
C      TWO  PARALLEL  RECTANGVE  SURFACES 
C 

PARLEL=0. 

IF (XHl. EQ. GVl  .AND.  YVl. EQ. GHl)  GO  TO  11 
C 

GX(1)=XH1/GHZ 

GX(2)=XH2/GHZ 

GY(l)=YVl/GHZ 

GY(2)=YV2/GHZ 

GV(l)=GVl/GHZ 

GV(2)=GV2/GHZ 

GH(1)=GH1/GHZ 

GH(2)=GH2/GHZ 

DO  1  L=l,2 

DO  1  K=l,2 

DO  1  J=l,2 

DO  1  1=1,2 

ALI=GH(L)-GX(I) 
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BKJ=GV(K)-GY(J) 

ALI2=ALI*ALI  J 

BKJ2=BKJ*BKJ  1 

SBKJ=SQRT(1.+BKJ2 

SALI=SQRT(1.+ALI2 

ALAB2  =  0 .  5'^AL0G(1  .+ALI2+BKJ2) 

AAA=ALOG(SALI) 

ICOEF=I+J+K+L 

PARLEL=PARLEL+((-l.)**ICOEF)*(ALI*SBKJ*ATAI\I(ALI/SBKJ) 
&        -BKJ=*^ATAN(BKJ)+SALI*BKJ*ATAN(BKJ/SALI) 
&       - ALI^ATAN ( ALI ) +AAA+ALOG ( SBKJ ) -ALAB2 ) / 6 . 28 
1  CONTINUE 

GO  TO  12 
C 

11   CONTINUE 

X=(XH2-XH1)/GHZ 

Y=(YV2-YV1)/GHZ 

X2=X*X 

Y2=Y'^Y 

X2P1=1.+X2 

Y2P1=1.+Y2 

X2Y2=X2+Y2 

X2Y2P1=1.+X2Y2 

PARLEL=(AL0G(SQRT(X2P1*Y2P1/X2Y2P1))+X*S0RT(Y2P1) 
&       ^ATAN(X/SQRT(Y2P1)  )+Y'^SQRT(X2Pl)'^ATAN(Y/SQRT(X2Pl) ) 
&       -X*ATAN(X)-Y'^ATAN(Y))*2./3.14159 
12  CONTINUE 
C 

RETURN 

END 

BLOCK  DATA 

C 

COMMON/BLll/  MIIZ(9) ,MJJZ(9) ,MKKZ(9) , IS (6) , LTYPE (9 , 6) , 
&  LI(9) ,LJ(9) ,LK(9) ,AYZ(9) ,AXY(9) ,AZX(9) , 

&  NHSZ,ITHIN(9) , JTHIN(9 ) , KTHIN( 9  , 

&  IHSB(9) ,NHSW(9), JHSB(9) ,NHSD(9) ,KHSB(9) ,NHSH(9) 

C 

DATA  MIIZ/9^0/,  MJJZ/9'^0/ ,  MKKZ/9*0/ ,  15/6*0/ ,  LTYPE/54*0/ 
DATA  ITHIN/9*!/,  JTHIN/9'^1/,  KTHIN/9'^1/,  NHSZ/9/ 
C 

END 
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APPENDIX  C 

FORTRAN  LISTING  OF  THE  RECTANGULAR  NUMERICAL  MODEL 

OF  FIRE  I 

Q                 -k-k  5^* 

C     ^^                   THREE-DIMENSIONAL  NUMERICAL  SIMULATION  ** 

C     *'^      OF  A  FIRE  SPREAD  INSIDE  A  NAVY  STORAGE  TANK  ** 

Q                 -kk  ** 

C     **                  DEVELOPED  BY  :  ** 

C      **          K.V.  LIU,  K.T.  YANG,  G.F.  NIES  ** 

Q                 k-k  ** 

C     **     DEPARTMENT  OF  AEROSPACE  &  MECHANICAL  ENGINEERING  ** 

C     **                                    UNIVERSITY  OF  NOTRE  DAME  ** 

C     **              NOTRE  DAME,  INDIANA,  46556  ** 

**                       AND  ** 


C 


7^7^ 


** 


c 

c 

c 

c  ^*  DEPARTMENT  OF  MECHANICAL  ENGINEERING               ** 

c  '^'^  U.S.  naval  postgraduate  school                 ** 

c  **  Monterey,  California  93940                  ** 

Q  -k-k  ** 

Q  kk  A* 

C  ^-^  DEC.  1986                               ** 

Q  k-k  -k-k 

Q  kkkkkkk-kkk-kkkkkkkkkkkkk-kkkkkkkkkkkkk-kkkkkkkkkkkkkk-kk-kkk-kkk-kkkkkk 


COMMON  /BLl/BUOY , VISL , VOL , VOLDT , KBOUND , DTIME , NTREAL , SORSUM , NWRITE 

COMMON  /BL2/  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 

COMMON  /BL3/  NI ,NJ ,NK,NIM1 ,NJM1 ,NKM1 ,NIM2 ,NJM2 ,NKM2 

COMMON/ CONS/XTIME , NT , UO , PRT , TA , 
&  NTMAXO,RA,CPAIR, SIGMA 

COMMON/NE/    U(22,18,18),V(22,18,18) .T(22,18,18),R(22,18,18; 
&  P(22,18,18),W(22,18,18),W0D(22,18,18),N0D(22,18,18, 

&  P(22,18,18) ,W(22,18,18) , WOD ( 22 , 18 , 18) 

COMMON/OD/UOD(22,18,18) , VOD(22 , 18 , 18) ,TOD(22 , 18 , 18) ,R0D(22 , 18 , 18) 

C0MM0N/BL31/TPD(22,18,18) , RPD(22 , 18 , 18) , UPDC22 , 18 , 18) , 
&  VPD(22,18,18),WPD(22,18,18) ,PPD(22 , 18 , 18) ,RESORM(20 ) . ITER 

C0MM0N/C0/AP(22,18,18) , AE (22 , 18 , 18) , AW(22 , 18 , 18) , AN(22 , 18 , 18) , 
&  AS(22,18,18),SU(22,18,18),SP(22,18,18),AF(22,18,18),AB(22,18,18) 

C0MM0N/PP/DU(22,18,18),DV(22,18,18) , DW(22 , 18 , 18) ,PP(22 , 18 , 18) 

COMMON/BLIO/  Z(30 ) , REQ(30 ) , VIS ( 22 , 18 , 18) ,RRES(3) 

C0MM0N/BL12/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 
&  ,XY0Z2,YZ0X2,ZX0Y2,DYZ04,DZX04,DXY04 

COMMON  /BL4/  QCONW  , 
&    QRADF  ,QRADW  , ARFP , ARFS ,QRADB ,QCONB ,QRADL,QCONL ,QRADR,QCONR, 
&    QRADT,6C0NT,QRADRE,QC0NRE 

COMMON/WCAP/TWF  (21 , 2 , 17) ,TWRE (21 , 2 , 17 ) , TWR  (2,17,17' 
&  TWL  (2,17,17) ,TWB  (21 , 17 , 2 ) ,TWT  (21,17,2' 

&  CPF  (21,3,17  ,CPRE  21,3,17) ,CPR  (3,17,17' 

&  CPL  (3,17,17) ,CPB  (21,17,3) ,CPT  (21,17,3' 

&  , DXW , DYW , DZW , VOLW , ALFAW , BETAW , HCOEF , TINF , ' 

&  CCOWL , CCOWR , CCOWRE , CCOWF , CCOWB , CCOWT 

COMMON/RAD/RLW(17,17) ,RRW(17,17) ,RREW(21,17) ,RFW(21,17) ,RBW(21,17) 
&  ,RTW(21,17) ,RADHS 

C0MM0N/VF/VFMXC(67,67) ,T4Z0N(67) ,TZON(67) ,RZ0N(67) ,AR(67) 
&  ,AREA(67) ,VIEW(67,67) ,CONSRA 

COMMON/BL80/BTURB , ABTURB , CNT , DX2 , DY2 , DZ2 , VISMAX 
&    .        ,SMPP(22,18,18) ,RI(22,18,1S) 

COMMON  / VIEWl/  MI , M J , MK , MI I , M J J , MKK , MIM , MIP , M JM , MJP , MKM , MKP , 
&  MI IM , MI IP , M J JM , M J JP , MKKM , MKKP , NHSZ , LZ , NZ , MZ , 

&  IREGNl , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 
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c 
c 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


&  MREGNl , MREGM2 , MREGN3 , MREGN4 , MREGN5 , MREGN6 , MREGN7 

COMMON  /VIEW2/  MIIZ(9 ) ,MJJZ(9 ) ,MKKZ(9) ,LI (9) ,LJ(9) ,LK(9) , 

&  ITHIM(9) , JTHIN(9) ,KTHIM(9) ,AXY(9) ,AYZ(9) ,AZX(9) , 

&  IHSB(9) ,JH5B(9) ,KHSB(9) ,NHSW(9) ,MHSD(9) ,NHSH(9), 

&  LTYPE(9,6) 

DIMENSION  DUMHY(22,22) ,QD0T(9) ,QF1(9) ,SVIEW(67) 
DIMENSION  TCELSI(22,18,18) ,POD(22 , 18, 18) 

CHARACTER  STAR 

DATA  STAR/'*7,ITLEFT/10000/ 

DATA  SORMAX,ITMAX/0.10,10/ 

DATA  TIME,RHEAT,CPHEAT/0. ,82.3, .138/ 

DATA  RWALL/438.0/ 

DATA  QCORRT , PCURMl , PMl/ 1 .0,1.0,1.0/ 


********   PAY  SPECIAL  ATTENTION  TO  LINES  COVERED  BY 
$$$$$$$$$$$$$$$$$$  LINES  $$$$S$$S$$$$$$$$$ 


*** 
*** 
*** 
*** 
*** 
*** 
*** 
*** 
*** 
*** 
*** 
*** 


uo 

RA 

H 

TA 

TINIT 

GC 

RAITR 

CONSTl 

C0NST4 

C0NST6 

CONSRA 

NPRNT 


***  NTRWR 
***  NTRWA 

***  QD 

***  TIMEl 
***  TIME2 


REFERENCE  VELOCITY  (FT/SEC) 
REFERENCE  AIR  DENSITY  (LBM/FT**3) 
REFERENCE  LENGTH  (FT) 
REFERENCE  TEMPERATURE  (R) 
INITIAL  TEMPERATURE  (0) 
GRAVITATIONAL  CONSTANT 
GAS  CONSTANT;'  53.34 
RA*U0^'^2/GC 
REFERENCE  LENGTH  (CM) 
REFERENCE  VELOCITY  (CM/S) 
TA^*3/ (RA^CP^UO^H^H) 

USED  IN  T,R,U,V,P PRINTOUT  ROUTINE 

NO.  OF  GRIDS  BETWEEN  TWO  CONSECTIVE  PRINTOUTS 

NTREAL/NWRITE'^NWRITE 

NTREAL/m^ALT*NWALT 

MAXIMUM  HEAT  INPUT , (WATTS) 

HEAT  FLUX  INCREASES  LINEARLY  TO  IT  FULL  STRENGTH, 

AT  TIME=TIME1,  (SEC.) 

THEN  THE  HEAT  INPUT  GRADUALLY  REDUCES  TO  ZERO,  (SEC 


QD, 


) 


TEMPERATURE 


***  WTHICK  ;  INTERIOR  THICKNESS  (IN) 

TWF  ( ) ,  TWRE ( ) ,  TWL  ( ) ,  TWR  ( ) ,  TWB  ( ) ,  TWT  ( ) 
INSIDE  THE  TANK  WALL,  2  CELLS  DEEP. 

QCONF  (),  QCONREO,  QCONR  (),  QCONL  (),  QCONB  (),  QCONT  ()  : 
THERMAL  CONDUCTION  ON  TANK  WALLS,  CALCULATED  IN  #CALT# 
***  CPF  0,  CPREO,  CPR  0,  CPL(),  CPB  (),  CPT  ()  ;  THERMAL  WALL 
WALL  CAPACITANCES,  IT  IS  A  FUNCTION  OF  TEMPERATURE 

CP ( )=ALFA_+BETA_'^TEMPERATURE 

*-^*=   RWALL,  CCOWL,CCOWR,CCOWRE,CCOWF,CCOWB,CCOWT,  CELLL,CELLR, 

CELLRE,CELLF,CELLB,CELLT  ;  VARIABLES  USED  IN  #MAIN#  AND 

#CALT#  FOR  WALL  CAPACITY  CALCULATION 
***  CPWALL , CONDET , CONDEB , CONDEW , CONDE F ,   ACOWW , BCOWW , ACOWT , BCOWT , 

ACOWB,BCOWB,ACOWF,BCOWF  ;  USED  TO  CALCULATE  WALL  THERMAL 

CAPACITY 
***  AREA()  :  NUMBER  OF  CELLS  IN  A  SURFACE  ZONE 

AR()    :  AREA  (FT'^*2)  OF  A  SURFACE  ZONE 
^■^*   RRW  0  ,RLW()  ,RREW()  ,RFW()  ,RBW()  ,RTW()  ;  SURFACE  RADIATIVE  HEAT 

FLUX  ON  EACH  CELL.  CALCULATED  IN  #SURRAD#  AND  USED  IN  #CALTtt 

FOR  TANK  WALL  TEMPERATURE  CALCULATION 


***  wc 
DC 
HC 


WIDTH  OF  THE  TANK,  IN  X-DIRECTION 
DEPTH  OF  THE  TANK,  IN  Y-DIRECTION 
HEIGTH  OF  THE  TANK,  IN  Z-DIRECTION 
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■k'k-k 


ickir: 


■k-k-k 


■kkk 
k-kk 
kkk 


kkk 


kkk 


kkk 


kkk 


NI 
NJ 

NK 
LTYPEO 


MI 

MJ 

MK 

NZ 

MZ 

MIIZi 

MJJZi 

MKKZi 

LI() 

LJ() 

LK() 

IHSBi 

JHSBi 

KHSBi 

MHSW( 

NHSDi 

NHSHI 

ITHINi 

JTHINi 

KTHIN( 


TOTAL  NUMBER  CELLS   IN  X-DIRECTION 

Y-DIRECTION 

Z-DIRECTION 

:  TYPE  OF  HEAT  SOURCE  SURFACE; 

0;  NO  RADIATION  EXCHANGE  OCCURS 

1;     RADIATION  EXCHANGE  OCCURS 

NUMBER  OF  ZONES  IN  X-DIRECTION 

Y-DIRECTION 
Z-DIRECTION 
TOTAL  NUMBER  OF  RADIATION  ZONES  IN 
TOTAL  NUMBER  OF  RADIATION  ZONES  ON 
LOCATION  OF  THE  HEAT  SOURCE, 


SYSTEM 
TANK  WALL 
ZONE  #  IN 


Mil 
MJJ 
MKK 

NUMBER  OF  CELLS  FOR  EACH  ZONE  IN  X-DIRECTION 

Y-DIRECTION 
Z-DIRECTION 
STARTING  CELL  NUMBER  FOR  EACH  HEAT  SOURCE 


X-DIRECTION 
Y-DIRECTION 
Z-DIRECTION 


IN 


0  OR  1 


C 

c 
c 
c 
c 
c 
c 

c 
c 


X-DIRECTION 
Y-DIRECTION 
Z-DIRECTION 
NUMBER  OF  CELLS  FOR  EACH  HEAT  SOURCE,  IN  X-DIRECTION 

Y-DIRECTION 
Z-DIRECTION 
ZERO  OR  ONE  ZONE  SPACE  BETWEEN  TWO  OPPOSITE 
SIDES  OF  A  HEAT  SOURCE  IN  X;(I),  Y;(J)  AND 
Z;(K)  DIRECTIONS 
IF  ITHIN=JTHIN=KTHIN=1  MEANS  A  RECTANGULAR  SHAPE  HEAT 
SOURCE  WITH  ONE  ZONE  SPACE  IN  EACH  DIRECTION 
IF  ITHIN=JTHIN=KTHIN=0  MEANS  AN  INFINITE  THIN  SHEET  OF 
HEAT  SOURCE  IN  ALL  3  DIMENSIONS 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
kkkkkkkkkkkkkkkkkkkkkkk 

»      READ  INPUT  DATA   << 

kkkkkkkkkkkkkkkkkkkkkkk 

KCASE=1 

KRUN=0 

KB0UND=1 

DTIME=.001 

TWRITE=1. 

TWALT=1. 

TMAX=5. 

NHSZ=1 

:iPRNT=5 

NRAD=2 

QD=3.223E05 

TIME1=30. 

TIME2=60. 

NI  =  22 

NJ=18 

NK=18 

WC=40.2 

DC=17. 
HC=17. 

***  READ  INPUT  DATA 

*^^   READ  #  1 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$S$$$$$$$$$ 
READ ( 5 , * )  KRUN , KBOUND , DTI ME , TWRITE , TWALT , NRAD , TMAX 

$$$$$$$$$$$$$i$$$$$$s$$$$$$$$s$$$$$$$$$$$$$$$$$$$$$s$$$$$$ 

WRITE  (6,802)  KRUN ,  KBOUND  ,  DTIME  ,  TWRITE  ,  TV7ALT  ,  NRAD  ,  TMAX 

802  F0RMAT(5X, 'KRUN  =', 13 , 2X, ' KBOUND  =', 13 , 2X, ' DTIME  =',E11.4, 

&  2X, 'TWRITE  =' ,E11.4,/,5X, 'TWALT  = ' , Ell .4 , 2X, ' NRAD  =', 
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&  14, 2X, 'TMAX  =' ,E11.4,/) 
C 

C  ***  READ  #  2 
C  ============= 

C 

READ(5,*)  QD,TIME1,TIME2 
C 

CC    WRITE(6,301)  QD ,TIME1 ,TIME2 

CC801  F0RMAT(/,5X, 'QD    =',E11.4,'  WATTS ', 3X, ' TIMEl  =',E11.4, 
CC   &         '  SEC. ' ,3X, 'TIME2  =' ,E11.4, '  SEC.',//) 
C 

C  **'^  WHEN  KBOUMD  =  3  OR  4 
C 

C     MOST  OF  THE  INPUT  INFORMATION  CAN  BE  OBTAINED  FROM  VIEW  FACTOR 
C     PROGRAM  WHICH  IS  A  SEPARATED  FORTRAN  PROGRAM  CALCULATING 
C     VIEW  FACTOR  BETWEEN  ANY  TWO  TANK  WALL  ZONES  AS  WELL  AS  BETWEEN 
C     HEAT  SOURCE  AND  TANK  WALL  ZONE. 

C     ONCE  THE  VIEW  FACTOR,  A  MAXTRIX  FORM,  IS  CALCULATED,  ALL  VARIABLES 
C     ARE  STORED  INTO  A  FILE,  SAY  VIEW. DATA,  EITHER  ON  DISK  OR  TAPE 
C  **'^  IF  KBOUND  IS  NOT  3  OR  4,  THEN  ALL  INPUT  CARDS  WILL  BE  READ 
C 

IF,(  KBOUND.  EO.  4.  OR.KBOUND  .EQ  .  3)  GO  TO  7234 

c 

C  ***  READ  #  3 
C  ============= 

C 

READ (5,*)  WC,DC,HC,NI,NJ,NK 
C 

C  ***  READ  #  4 
C  ============= 

C 

READ (5,*)  NHSZ 
C 

C  *****^  IF  NHSZ  >  1,  THEN  READ  NHSZ  SET  OF  CARDS  FOR  READ  GROUP  2  TO  4 
C  ^** 

DO  11  1=1, NHSZ 
C 

C  ***  READ  #  5 
C  ============= 

C 

READ ( 5 , * )  LTYPE (1,1), LTYPE (1,2), LTYPE (1,3), LTYPE (1,4), LTYPE (1,5), 
&  LTYPE (1,6) 

C 

C  ^-^^   READ  #  6 
C  ============= 

C 

C  *'^*  READ  POSITION  AND  SIZD  DATA  FOR  HEAT  SOURCE 

C 

READ(5,*)  IHSB(I) ,NHSW(I ) , JHSB(I ) ,NHSD(I) ,KHSB(I) ,NHSH(l) 

C 

C  ***  READ  #  7 
C  ============= 

C 

READ (5,'*^)  MIIZ(I),MJJZ(I)  ,MKKZ(I) 
C 

C  ■^■^■^   READ  #  8 
C  ============= 

C 

READ(5,*)  ITHIN(I) , JTHIN(I) ,KTHIN(I) 
C 

11  CONTINUE 
C 

C  ***  READ  #  9 
C  ============= 

C 

READ(5,*)  MI,MJ,MK 

154 


READ  ( 5  ,  '^ 
READ ( 5 , * 
READ (5,* 


GO  TO  7235 


1=1, mi; 

1=1, MJ 

1=1, mk; 


C 
C 
C 
C 
C 


C 

c 
c 


c 
c 

c 
c 


7234  CONTINUE 

***  READ  VIEW  FACTORS  MATRIX  AND  ZONE  CELL  NUMBER 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

READ (15) 
&    IREGNl , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 
&   MREGNl ,MREGN2 ,MREGN3 ,MREGN4 ,MREGN5 ,MREGN6 ,MREGN7 , 
&   WC , DC , HC , NI , N J , NK , AXY , AYZ , AZX , 

&   MI IZ , MJ JZ , MKKZ , MI , MJ , MK , LTYPE , MZ , NHSZ , NZ , LI , L J , LK , 
&    ITHIN , JTHIN , KTHIN , IKSB , JHSB , KHSB , NHSW , NHSD , NHSH , VIEW , AREA 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

WRITE(6,667) 

&    IREGNl , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 
&   MREGNl ,MREGN2 ,MREGN3 ,MREGN4 ,MREGN5 ,MREGN6 ,MREGN7 , 
&   WC,DC,HC,NI,NJ,NK, 
&   MI,MJ,MK,HZ,NZ,NHSZ 

667  FORMAT(  5X,'  READ  DATA  FROM  FILE  15,  CALCULATED  FROM  VIEW  ', 
&  'FACTOR  PROGRAM  7/, 5X,  'IREGNl  = '  , 13 , 2X,  ' IREGN2  =',I3,2X, 
&  'IREGN3  =' ,I3,2X, 'IREGN4  = ' , 13 , 2X, ' IREGN5  = ' , 13 , 2X, ' IRENG6  =', 
&  I3,2X, 'IREGN7  =', 13 ,/, 5X, ' MREGNl  = ' , 13 , 2X, ' MREGN2  =',I3,2X, 
&  'MREGN3  =' ,I3,2X, 'MREGN4  = ' , 13 , 2X, ' MREGN5  = ' , 13 , 2X, ' MREGN6  =', 
&  13, 2X, 'MREGN7  =' ,13,//, 

&  5X, 'WC  =' ,E11.4, '  FT' ,3X, 'DC  =' ,E11.4, '  FT ' , 3X, ' HC  = ' ,E11 .4 , 
&  '  FT',/,5X,'NI  =',I3,3X,'NJ  =',I3,3X,'NK  =',I3,//, 
&  5X,'MI  =',I3,3X,'MJ  =',I3,3X,'MK  =',I3,3X,'MZ  =',I3,3X, 
&  'NZ  =' ,I3,//,5X, 'NO.  OF  HEAT  SOURCES  =',I3,//) 

7235  CONTINUE 

WRITE(6,21)  WC,DC,HC,NI,NJ,NK 
21  F0RMAT(5X, 'WC  =' ,E11.4, '  FT ' , 3X, ' DC  = ' ,E11 .4 , '  FT',3X, 
&     ' HC  = '  Ell .4  '  FT '  / 
&  5X,'NI  =''l3,6X;'NJ  =',i3,6X,'NK  =',I3,//) 

WRITE (6, 31)  NHSZ 
31  FORMAT (5X, 'TOTAL  NUMBER  OF  HEAT  SOURCES,  NHSZ  :',I2,//) 


12 


DO  91 
WRITE 
& 
& 
& 

FORMAT 
&  lOX 
8X 
lOX 
lOX 
lOX 
&  lOX 
&  lOX 
&  lOX 
&  lOX 
&  20X 
&  20X 
&  20X 
&  lOX 
&  20X 
&  20X 


& 

& 
& 
& 


1=1, NHSZ 
(6,12)  I , LTYPE (1,1), LTYPE (1,2), LTYPE (1,3), LTYPE (1,4), 
LTYPE (1,5), LTYPE (1,6), IHSB ( I ) , JHSB ( I ) , KHSB ( I ) , 
NHSW(I),NHSD(I) ,NHSH(I) ,MIIZ(I ) ,MJJZ(I ) ,MKKZ(I ) , 
ITKIN ( I ) , JTHIN ( I ) , KTHIN ( I ) 
(5X,'HEAT  SOURCE  NUMBER  :',I2,//. 
ITS  6  SURFACE  TYPES  ARE  :  LTYPE  (^I )  =',612,//, 

LOCATION  OF  THIS  HEAT  SOURCE  '  ,  //  , 

STARTING  CELL  NUMBER  IN  X-DIRECTION  :  IHSB  =  ',12,/, 

Y-DIRECTION  :  JHSB  =  ',12,/, 
Z-DIRECTION  :  KHSB  =  ',12,//, 
AND  THE  CELLS  IN  X-DIRECTION  :  NHSW  =  ',12,//, 

Y-DIRECTION  :  NHSD  =  ',12,//, 
Z-DIRECTION  :  NHSH  =  ',12,//, 
LOCATION  OF  THIS  HEAT  SOURCE  RADIATION  EXCHANGE  ZONE',/, 


ZONE  NUMBER  IN 


X-DIRECTION 
Y-DIRECTION 
Z-DIRECTION 
SOURCE  ZONE  HAS  ' 


MlIZi 

MJJZi 

MKKZI 

,//, 


THIS  HEAT 

ITHIN(I)  =',I2,'  ZONE  THICKNESS  IN 

JTHIN(I)  =',I2,'  ZONE  THICKNESS  IN 


)  =  Mil  =  ' ,12,/, 
=  MJJ  =  ' ,12,/, 
)  =  MKK  =  ' ,12,//, 

X-DIRECTION' ,/, 
Y-DIRECTION' ,/, 
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&  20X, 'KTHIN(I)  =',I2,'  ZONE  THICKNESS  IN  Z-DIRECTION ' , // ) 
91  CONTINUE 

WRITE(6,18)  MI,(LI(I),I=1,MI) 

18  FORMAT (lOX, 'THERE  IS  ;  MI  =',12,'  ZONES  IN  X-DIRECTION' , // , 

&   20X,'THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LI(I)  =',1013,/) 
WRITE(6,19)  MJ, (LJ(J),J=1,MJ) 

19  FORMAT (lOX, 'THERE  IS  ;  MJ  =',I2,'  ZONES  IN  Y-DIRECTION ' , // , 

&   20X,'THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LJ(I)  =',1013,/) 
WRITE(6,20)  MK,(LK(K),K=1,MK) 

20  FORMAT (1 OX, 'THERE  IS  ;  MK  =',I2,'  ZONES  IN  Z-DIRECTION',//, 

&   20X,'THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LK(I)  =',1013,/) 

MZ=2'^  (MI*MJ+MJ*MK+MK*MI ) 

WRITE(6,308)  MZ 
308  FORMAT (5X, 'TOTAL  NUMBER  OF  ZONES  ON  TANK  WALL  =',I3,/) 

DO  668  L=1,NHSZ 

WRITE (6,669)  L , LTYPE (L , 1 ) , LTYPE (L , 2) , LTYPE (L , 3 ) , LTYPE (L , 4) , 

&  LTYPE(L,5) ,LTYPE(L,6) ,MIIZ(L) ,MJJZ(L) ,MKKZ(L) , 

&  IHSB(L) , JHSB(L) ,KHSB(L) ,NHSW(L) ,NHSD(L) ,NHSH(L) , 

&  ITHIN(L) , JTHIN(L) ,KTHIN(L) ,AXY(L) ,AYZ(L) ,AZX(L) 
669  FORMAT (5X, 'HEAT  SOURCE  NUMBER  ',12,//, 

&  5X,  'LTYPE  ='  ,613,/, 5X,  'Mil   =  '  , 13 , 2X, ' MJJ   =',I3, 

&  2X, 'HKK   =' ,13,// 

&  5X, 'IHSB(L'   "  ~" 

&  5X, 'NHSW(L 

&  5X, 'ITHIN(L)= 

&  5X, 'AXY(L' 

&  2X, 'AZX(L 
668  CONTINUE 


I 


,I2,2X, 'JHSB(L)  =' ,I2,2X, 'KHSB(L)  =',I2,/, 
,I2,2X, 'NHSD(L)  = ' , 12 , 2X, ' NHSH(L)  =',I2,//, 
,I2,2X, 'JTKIN(L)=' ,I2,2X, 'KTHIN(L)=' ,12,//, 
,E11.4,'  FT*'*^2'  ,2X, 'AYZ(L)   =',E11.4,'  FT*^2 
,E11.4, '  FT^*2' ,//) 


C 

c 


DO  766  L=1,NHSZ 

MII=MIIZ(L 

MJJ=MJJZ  L 

MKK=MKKZ(L 

WRITE(6,767)  L ,MII ,MJJ ,MKK 
767  FORMAT (/,5X, 'HEAT  SOURCE  NO.  ',I2,2X,'MII  = ' , 13 , 2X, ' MJJ  =',I3 

&   2X, 'MKK  =' ,13,/) 
766  CONTINUE 

WTHICK=2./12. 

NIM1=NI-1 
NJM1=NJ-1 
NKM1=NK-1 
NIM2=NI-2 
NJM2=NJ-2 
NKM2=NK-2  • 

H=HC 

DZ=HC/(NKM2' 

DX=WC/(NIM2' 

DY=DC/(NJM2' 

XDX=WC/(NIM2^ 

YDY=DC/(NJM2' 

ZDZ=HC/(NKM2; 

DO  821  N=1,NHSZ 
XIHSB=IHSB(N)*DX*H 
YJH5B=JHSB(N)^DY'^H 
ZKHSB=KHSB(N)*DZ*H 
XNHSW=NHSW ( N  ^DX^H 

ynhsd=nhsd(n)*dy^h 
znhsh=nhsh(n)*dz*h 

write(6,822)  n,  xihsb , yjhsb ,zkhsb , xnhsw, ynhsd , znhsh 
822  format (/,5x, 'heat  source  no.  ',12,/, 

sc    10x,'its  location  is  ',e11.4,'  ft  from  x=0  '  ,  /  , 
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&   lOX,'  ',E11.4,'  FT  FROM  Y=0' ,/, 

&   lOX,'  ',E11.4,'  FT  FROM  Z=0' ,//, 

&   10X,'ITS  THICKNESS  IS  ',E11.4,'  FT  IN  X-DIRECTION ' , / , 
&   lOX,'  ',E11.4,'  FT  IN  Y-DIRECTION' ,/, 

&   lOX,'  ',E11.4,'  FT  IN  Z-DIRECTION' ,//) 

821  CONTINUE 
C 

U0=1.0 
XTIMEI=0. 
C  NFIRE  IS  AN  UNNEEDED  VARIABLE  LEFT  OVER  FROM  ALTERATIONS. 
C  TO  GET  RID  OF  IT  SEVERAL  PRINT  STATEMENTS  MUST  BE  ALTERED. 
NFIRE=1 

C  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C 

NWALT  =10 

NWRITE  =  10 
C 

C     NWALT=TWALT   *U0/ (DTIME^H) 
C     NWRITE=TVJRITE*UO/(DTIME*H) 
C 
c  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

c 

C  ^^^   PRINT  OUT  INPUT  INFORMATION 
C 

WRITE ( 6 , 1 ) ( STAR ,1=1,100), KCASE , KRUN , TWRITE , TWALT , DTIME 

&  ,HC,WC,DC,XDX,YDY,ZDZ, 

&  OD, TOD, NWRITE, NFIRE, TMAX 
1  FORMAf(///,100Al,///,lX, '***   THREE-DIMENSIONAL  NUMERICAL  ', 

&  'SIMULATION  OF  THE  NAVY  STORAGE  TANK:',/,4X, 

&  '<  CASE  NO.  =  ',12,'  >',//, 4X,'#  KRUN   =',I2,/,4X, 

&  '#  TWRITE  =' ,F6.1,/,4X,  '#  TWALT   =',F6.1, 

&/,4X,'#  DTIME   =' ,F6.3,//,4X, '#  THE  ENCLOSURE  :  HEIGHT  = ' , F6 . 1 , 

&'  FEET' ,2X, 'WIDTH  =' ,F6.1, '  FEET ', 2X, ' DEPTH  =', F6 . 1 , '  FEET',//, 

&  '#  THE  GRID  CELL  SIZE  :  DX  = ' , F6 . 1 , 

&  '  FEET',2X,'  DY   = ' , F6 . 1 , '  FEET',2X,'  DZ   =',F6.1,'  FEET',//, 

&5X, 'TOTAL  HEAT  INPUT  ;  QD  =',  El 1.4,'  WATTS  =',E11.4,'  BTU/HR',/, 

&  5X, 'NWRITE  =' ,14, 5X, 'NFIRE  =',I4,/, 

&  5X, 'TMAX  =' ,F8.2, '  SEC.',//) 
C 

GO  TO  (1132,1133,1134,1135) ,KBOUND 

1132  WRITE(6,1136)KB0UND 

GO  TO  1141 

1133  WRITE (6,1 137 )KBOUND 

GO  TO  1141 

1134  WRITE(6,1138)KB0UND,NRAD 

GO  TO  1141 

1135  WRITE(6,1139)KB0UND,NRAD 
1141  CONTINUE 

C 

1136  F0RMAT(4X,'<  KBOUND  =',I3,'   > ' , / , 6X, ' PURE  CONVECTION  WITH  ', 
&  'INSULATED  WALL  IS  CONSIDERED  IN  THIS  CASE.',//) 

1137  F0RMAT(4X,'<  KBOUND  =',I3,'   > ' , / , 6X, ' PURE  CONVECTION  WITH  ', 
&  'WALL  CAPACITANCE  IS  CONSIDERED  IN  THIS  CASE.',//) 

1138  F0RMAT(4X,'<  KBOUND  =',I3,'   > ' , / , 6X, ' BOTH  CONVECTION  AND  ', 
&  'SURFACE  RADIATION  ARE  INCLUDED  IN  THIS  CASE  WITH  WALL  ', 

&  'CAPACITANCE. ' ,/,4X, '#  NRAD  =',I3,'  TIME  STEPS  TO  UPDATE  THE  ', 
&  'RADIATIVE  HEAT  FLUX.',//) 

1139  F0RMAT(4X,'<  KBOUND  =',I3,'   > ' , / , 6X, ' BOTH  CONVECTION  AND  ', 

&  'SURFACE  RADIATION  ARE  INCLUDED  IN  THIS  CASE  WITH  INSULATED', 

&  '  WALL. ' ,/,4X, '#  NRAD  =',I3,'  TIME  STEPS  TO  UPDATE  THE', 

&  'RADIATIVE  HEAT  FLUX.  **^  NOT  AVAILABLE  RIGHT  NOW',//) 
C 

C 

C  ***  DEFINE  THE  CONSTANT  VARIABLES  IN  THE  CALCULATION  PROCESSES 
C 

DXY=DX*DY 
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DYZ=DY*DZ 

DZX=DZ'^DX 

DX4=DX*4. 

DY4=DY*4. 

DZ4=DZ*4. 

DX2=DX*2. 

DY2=DY^2. 

DZ2=DZ*2. 
C 

VOL=DX*DY*DZ 

UH=H/UO 

GC=32.17 

RAITR=53.34 
C 

VOLDT=VOL/DTIME 

BUOY=GC'^H/(U0*U0) 

UGRT=UO*UO/ (GC^RAITR'^TA) 

WRITE (6, 374)  BUOY , UGRT 
374  F0RI-IAT(/,5X,  '1/F  =  BUOY  =  '  ,E11 ,4, 5X,  '  C  =  UGRT  =  ',E11.4,/) 
C 

XYOZ=DXY/DZ 

YZOX=DYZ/DX 

ZXOY=DZX/DY 

PRT=1. 

XYPZ=XYOZ/PRT 

YZPX=YZOX/PRT 

ZXPY=ZXOY/PRT 

VISL=(1.56E-4)/(H*U0) 

VISMAX=VISL*400. 
C 

DZX02=DZX*.5 

DYZ02=DYZ*.5 

DXY02=DXY*.5 

DZX04=DZX*.25 

DYZ04=DYZ*.25 

DXY04=DXY'*^.25 

XYPZ2=XYPZ*2. 

YZPX2=YZPX^2. 

ZXPY2=ZXPY*2 . 

XY0Z2=XY0Z^2. 

YZ0X2=YZ0X'^2,  ■ 

ZX0Y2=ZX0Y'^2. 
C 

CONST4=H'^30.48 

COMST6=U0^30.48 

CONST1=RA'^UO*UO/  (GC*14  .  696*144 .  ) 

TIMIT=1. 
C 

C  ***  FOR  WALL  CAPACITY 
C 

CELLB  =FLOAT(NIM2*NJM2) 

CELLT  =CELLB 

CELLRE=FLOAT (NIM2*MKM2 ) 

CELLF  =CELLRE 

CELLL  =FL0AT(NJM2'^NKM2) 

CELLR  =CELLL 
C 

C  **'^  CONSTANTS  FOR  RADIATION  CALCULATION 
C 

CONSRA  =  TA*TA*TA/(RA*CPAIR*U0'^3600.*H*H) 
C 

C  ^^^  CONSTANTS  FOR  WALL  CAPACITANCE 
C 
C  *^^  WTHICK  IS  THE  TOTAL  WALL  THICKNESS,  NOT  THE  CELL  THICKNESS 

WTHICK=3./3./12. 

DXW=WTHICK/2.0/H 

DYW=DXW 

DZW=DXW 

VOLW=DXW*DX*DY 
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CPWALL=0.104 
CONSTA=CPAIR'*^60 .  *RA*UO'^H 

C 

C  ^^-^   ALFAW  AND  BETAW  ARE  USED  FOR  WALL  THERMAL  CAPACITY  CALCULATION 

C 

CONDEW=35.0 

CC     ALFAW=.000208/CONSTA*CONDEW 

CC     BETAW=.000000731'^TA'^2./CONSTA  *CONDEW 

C  ***  THE  NEW  ALFAW  BELOW  IS  IN  UNITS  OF  BTU/SEC/FT/DEGREE  F 
ALFAW=35. 0/3600.0 
BETAW=0 . 0 

C 

C  '^**  HCOEF,  CCOWL,CCOWR,CCOWRE,CCOWF,  CCOWB,  AND  CCOWT  ARE  USED 

C      IN  #CALT#  FOR  WALL  TEMPERATURE  CALCULATION 

C 

HC0NV=7 . 5 

HC0EF=HC0NV*4 . / (3600 . *CPAIR*RA*U0 ) 

CCOWL  =CELLL  *RWALL'^VOLW  ^CPWALL/ (CPAIR*DTIME*RA) /2  .  0 

CCOWR  =CELLR  '^RWALL^VOLW  ^CPWALL/ ( CPAIR*DTIME'^RA)/2  .  0 

CCOWRE=CELLRE'^RWALL'^VOLW  *CPWALL/  (CPAIR^DTIME'^RA)  /2  .  0 

CCOWF  =CELLF  *RWALL^VOLW  ^CPWALL/ (CPAIR^DTIME^RA) /2 . 0 

CCOWB  =CELLB  *RWALL*VOLW  *CPV/ALL/ ( CPAIR^DTIME^RA) /2  .  0 

CCOWT  =CELLT  *RWALL*VOLW  *CPWALL/ (C?AIR^DTIME^RA)/2 . 0 

TINF=1. 

C 

WRITE (6,2334)  HCONV , CCOWL , CCOWR , CCOWRE , CCOWF , CCOWB , CCOWT , 
&  ALFAW  BETAW 
2334  FORMAT ( 2X,  "^^'^   THE  CONVECTION  COEFFICIENTS  ARE  ', 
&  'MULTIPLIED  BY  A  FACTOR  AT  THE  WALL  =  ',F10.4,//, 
&5X, 'CCOWL   =' ,E11.4,2X, 'CCOWR   = ' ,E11 . 4 , 2X, ' CCOWRE  = ' ,E11 . 4 , 
&2X, 'CCOWF   =' ,E11.4,2X, 'CCOWB   = ' , Ell .4, 2X, ' CCOWT   =',E11.4,/, 
&5X, 'ALFAW  =' ,E11.4,2X, 'BETAW  =',E11.4,/) 

C 

c 

C  ***    INITIALIZE  THE  CONDUCTIVITY  FOR  THE  WALLS, 

C  *'^*    ONLY  IN  THE  CASE:  KBOUND  =  3  AND  THE  FIRST  RUN. 

C 

IF (KBOUND. NE. 3. AND. KBOUND. NE. 2) GO  TO  726 

IF(KRUN.EQ.1)G0  TO  726 
C 

C     WRITE(10,1335)KCASE   . 
C     WRITE(13,1335)KCASE 
C     WRITE(14,1335)KCASE 
C1335  FORMAT (2X,'  ^^^   THIS  IS  CASE  ',12,'  *** ' ) 

DO  728  I=2,NIM1 

DO  728  K=2,NKM1 

DO  728  J=l,2 

TWF  (I,J,K)=1. 

TV/RE(I,J,K)  =  1. 

728  CONTINUE 

DO  731  J=2,NJM1 
DO  731  K=2,NKM1 
DO  731  1=1,2 
TWR  (I,J,K)=1. 
TWL  (I,J,K)=1. 
731  CONTINUE 

DO  729  I=2,NIM1 
DO  729  J=2,NJM1 
DO  729  K=l,2 
TWT  (I,J,K)=1. 
TWB  (I,J,K)=1. 

729  CONTINUE 
726  CONTINUE 

C 

C  ***  DEFINE  VERTICAL  NODE  POINTS  AND  COMPUTE  HYDROSTATIC 

C      EQUILIBRIUM  DENSITY 

C 

Z(1)=-.5^DZ 
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Z(2)=0.5*DZ 
DO   93   K=3,NK 
Z(K)=Z(K-1)+DZ 
93    COMTIMUE 

AAAA=- 1 . *BUOY*UGRT*Z ( 1 ) 

REQ(1)=EXP(AAAA) 

DO  13  K=1,NK 

AAAA=Z ( K ) ^EUOY*UGRT 

REQ(K)=1./EXP(AAAA)  J 


13  CONTINUE 
C 

C  *^*  DEFINE  THE  INITIAL  VALUES 
C 

TOTMS=0 . 
C 

DO  220  K=1,NKM1 

DO  220  J=1,NJM1 

DO  220  I=1,NIM1 

RI(I,J,K)=0. 

AE  I,J,K)=0. 

AW(I,J,K  =0. 

AN(I, J,K)=0. 

AS(I,J,K  =0. 

AF(I, J,K  =0. 

AB(I,J,K)=0. 

AP(I,J,K)=0. 

SP{l,J,K)=0. 

SU(I,J,K  =0. 

PP  I, J,K  =0. 

DU(I,J,K  =0. 

DV(I,J,K  =0. 

DW(I,J,K)=0. 

TOTMS=TOTHS+REg(K) 
C 

220  CONTINUE 

TOTMS=TOTMS*VOL*H'^H*H*RA 

WRITE (6, 376)  TOTMS 
376  FORMAT (5X, 'INITIAL  TOTAL  MASS  =  ',E11.4,'  LBM',/) 

IF(KRUN.EQ.1)G0  TO  2226 

DO  2222  K=1,NK 

DO  2222  J=1,NJ 

DO  2222  1=1, NI 

VIS(I,J,K)=VISL 

U0D(I, J,K)=0. 

VOD(I,J,K)=0. 

WOD(I,J,K)=0. 

T0D(I,J,K)=1. 

ROD(I,J,K)=REQ(K) 

P(I,J,K)=0. 
C     NOD(I,J,K)=0 

2222  CONTINUE 

DO  2223  K=1,NKM1 
DO  2223  J=1,NJM1 
RLW(J,K)=0. 
RRW(J,K)=0. 

2223  CONTINUE 

DO  2225  I=1,NIM1 

DO  2225  J=1,NJM1 

RBW(I,J)=0. 

RTW(I,J)=0. 
2225  CONTINUE 

DO  2227  I=1,NIM1 

DO  2227  K=1,NKM1 

RFW(I, J)=0. 

RREW(I, J)=0. 
2227  CONTINUE 
C 

C  *'^*  OSIN,  QSV/AL  AND  QSAIR  FOR  HEAT  GENERATION  AND  LOSS  THROUGH 
C     AIR  AND  WALL. 
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C  ***  RADHS  :  RADIATIVE  HEAT  FLUX  FROM  HEAT  SOURCE 
C 

RADHS =0. 

QSIM=0. 

QSV/AL=0  . 
2226    CONTINUE 
C 

c 

IF(KRUN.NE.l)    GO   TO    9999 
C 

C  ***  READ  THE  DATASET  OF  LAST  JOB  FROM  THE  TAPE  OR  THE  DISK 
C 

9997  READ(8,END=151) 

&  TIME , NTMAXO , TOD , ROD , UOD , VOD , WOD , P , VIS , XTIMEI 

&,QSIN,QSWAL,QSAIR,PCURM1,PM1,QC0RRT 

&,TWF    ,TWRE,TV/R    ,  TWL    ,TWB    ,TWT       ,  RLW,  RRW,  RREW  ,RFW,  RBW,RTW 

& , RADHS , QRADF , QRADW  , QRADB , QRADL , QRADR , QRADT , QRADRE 

GO  TO  9997 
151  BACKSPACE  8 
CC    NTMAXO=TIME/DTIME 
9999  CONTINUE 

IF(XTIHE.GT.TMAX)GO  TO  9303 
C 

DO  221  K=1,NK 

DO  221  J=1,NJ 

DO  221  1=1, NI 

U(I, J,K)=UOD(I,J,K' 

Vfl, J,K)=V0D(I, J,K 

W(I,J,K)=W0D(I,J,K 

T(I,j,k)=tod(i,j,k; 
R(i, j,k)=rod(i,j,k; 

P(I,J,K)=P(I,J,K) 
221  CONTINUE 

c 

C 

C  **'^  THE  FOLLOWING  SECTION  CAN  BE  SKIPPED 

C     WHEN  RADIATION  IS  NOT  CONSIDERED. 

C 

IF(KB0UND.NE.4.AND.KB0UND.NE.3)  go  to  1234 
C 

C  '^**  CALCULATE  THE  #  OF  CELLS  IN  EACH  WALL-ZONE 
C 

DO  5  L=1,MREGN3 

AR(L)=AREA(L) 

AREA(L)=AREA(L)/DYZ/H/H 

5  CONTINUE 

DO  6  L=MREGN3+1,MREGN5 

AR(L)=AREA(L) 

AREA ( L ) =AREA ( L ) /DZX/H/H 

6  CONTINUE 

DO  7  L=HREGN5+1,MREGN7 

AR(L)=AREA(L) 

AREA ( L ) =AREA ( L ) /DXY/H/H 

7  CONTINUE 

DO  670  L=MREGN7+1,NZ 

AR(L)=AREA(L) 

AREA(L)=1. 
670  CONTINUE 
C 

C  ^^-^   ADJUST  THE  VIEW  FACTORS  FOR  ALL  ZONES  SUCH  THAT  THE  SUMMATION 
C      OF  ANY  ZONE  TO  ALL  OTHER  WALL  ZONES  TO  ONE 
C 

763  CONTINUE 

DO  768  1=1, NZ 

SVIEW(I)=0. 

DO  760  J=1,NZ 
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SVIEW(I)=   SVIEW(I)+VIEW(I,J) 

760  CONTINUE 

C     WRITE(6,769)  I,SVIEW(I) 

C  769  FORMAT (5X,  'I  =M3,3X,'S  VIEW  ='  ,E11.4) 
763  CONTINUE 

SMX=  SVIEW(l) 

IMX=1 

DO  761  1=2, NZ 

IF(SVIEW(I) .LT.SMX)GO  TO  761 

SMX=SVIEW(I) 

IMX=I 

761  CONTINUE 

CV    WRITE (6, 770)  IMX,SMX 

CV770  FORMAT ( 5X, 'IMX  = ' , 13 , 3X, ' SMX  =',E11.4) 

DO  762  1=1, NZ 

VIEW ( IMX , I  =VIEW ( IMX , I ) /SVIEW( IMX) 

VIEW  I,IMX)=VIEW(I,IMX)/SVIEW(IMX) 
C     WRITE(6,771)  I , VIEW( IMX, I ) , VIEW( I , IMX) 

C  771  F0RMAT(5X,'I  = ',13 , 2X, ' VIEW( IMX, I )  = ' ,E11 .4 , 2X, ' VIEW(I , IMX)  =', 
C    &  Ell. 4) 

762  CONTINUE 
C 

IF(SMX.GT.l.)  GO  TO  763 

DO  765  1=1, NZ 

VIEW(I,I)=1.-SVIEW(I) 
765  CONTINUE 
C 

CV    WRITE (6, 161) 

CV161  F0RMAT(5X, ' ((VIEW(I,J) , J=l ,NZ) , 1=1 ,NZ) ' ,/) 
C 

CV    CALL  WRITE2(VIEW,NZ,1,NZ,1,NZ) 
C 

C  ***  CALCULATE  RADIATIVE  COEFICIENT  MATRIX 
C 

CALL  VIEWMX 

Q     -k-k-k-k-k-k-k-k-k-kir-k-kT^-k-kyr-k-k-k-k-k-k-k-k-k-k 
C     ■ 

WRITE(6,2331)  AR(LZ) 
2331  F0RMAT(/,4X, '  THE  REAL  AREAS  USED  IN  RADIATION  CALCULATION  ARE', 
&  /,  4X,'#  HEAT  SOURCE  =  ',F10.4,'  FT'^'^2  '  , // ,  5X,  '  AR( )  FOR  ', 
&  'INTERIOR  WALL  IN  EACH  WALL  ZONE  (FT^'^2)  ,  1  =  1, MZ',//) 
C     WRITE(6,*)(AREA(I),I=1,MZ) 
C 

CALL  WRITE 1(AR,1,NZ) 
WRITE (6, 101) 
101  F0RMAT(5X,'  AREA();  #  OF  CELLS  IN  THIS  ZONE',/) 
CALL  WRITE1(AREA,1,NZ) 
C 

1234  CONTINUE 
C 

WRITE(6,2333)  (STAR, 1=1 , 100) 
2333  FORMAT (lOOAl,//) 
C 
C 

Q     kkkkkkkkkkkkkkk-kkkk-kk-kkkkkkkkkk-kkk-kkkkkkkkkkkkkkkkkkkkkk-k-kkkkkkkkkkkk 

C  >>>  RETURN  HERE  EVERY  TIME  <<< 

Q    kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkk-kkkk-kkkkkkkkkk-k'k-k:kkk-k-kk 
C 

300  CONTINUE 
C 

WRITE(6,3900) 
3900  F0RMAT(6X, ' NTREAL '  ,5X, 'TIME(SEC) '  ,9X, ' KTGP '  ,5X, 'PCORR(TOT) '  , 
&  5X, '%PF/PI' ,7X, 'ITER' ,9X, 'RESORM=' ,8X, 'SORSUH=' ,//) 
C 

NT=NT+1 

ITER=0 

NTREAL=NT+NTMAXO 

TIME=TIHE+DTIME 
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XTIME=TIME*H/UO 
C 

C  ***  THE  TRANSIENT  HEAT  INPUT 
C 
CC     TIME1=DTIME*10.0*H/U0 

TIME2=85.71 

TIME3=120.0 

TIME4=240.0 
CC    IF(XTIME.GT.TIMEl)  GO  TO  60 

CC    PCURVE=(  .9167491E-5^XTIME*XTIME)  +  (  .3306313E-3'^XTIME)  +  (1.0) 
CC    DPDTl=(1.8334982E-5^XTIME)+( .3306313E-3) 
CC    OQ=8.316E7^DPDT1/TIME1^XTIME*2.0876 
CC    GO  TO  61 

60  IF(XTIME.GT.TIME2)  GO  TO  62 

PCURVE=(.9167491E-5'^XTIME*XTIME)  +  (  .  3306313E-3*XTIME)  +  (  1 .  0) 

DPDTl=(1.8334982E-5^XTIME)+(.3306313E-3) 

QQ=8.316E7*DPDT1^2.0876 
C 

C  ***  IN  MANY  OF  THE  FOLLOWING  LINES  A  TEMPORARY  CORRECTION  FOR 
C   *      ADJUSTING  QQ   TO  AGREE  WITH  THE  PRESSURE  HAS  BEEN  APPLIED. 
C  *^*  OLDER  CODE  IS  IDENTIFIED  BY  CC. 
C 

GO  TO  61 

62  IF(XTIME.GT.TIME3)  GO  TO  63 

PCURVE=(-.  21381  S9E-20*XTIME**6)-(  .  2435482E-12-^XTIME*'^5  )  + 
&    (  .3501095E-9*XTIME'^^4)-(  .  1782647E-6^XTIME^^3  ^  t 
&    (  .3513094E-4'^XTIME*XTIME)-(  .  7  541231E-3^XTIME)rl .  0031876 

DPDT2=( -1.2829 134E-20^XTIME*XTIME'^XTIME'^XTIHE'*^XTIME)- 
&     (1.217741E-12'^XTIME*XTIME*XTIME'*^XTIME)  + 

&     {l.400438E-9'^XTIME*XTIME^XTIME)-(5.347941E-7*XTIME*XTIME)  + 
&     (7.036168E-5^XTIME)-(7.541231E-4) 

QQ=8  .  316E7*DPDT2'^2  .  0876 

GO  TO  61 

63  IF(XTIME.GT.TIME4)  GO  TO  64 

PCURVE=(-.2138189E-20'^XTIME**6)-(.2435482E-12*XTIME*^5)  + 
&    (  .3501095E-9'^XTIME^*4)-(  .1782647E-6'^XTIME^'^3)  + 
&    (  .3518094E-4'*^XTIME*XTIME)-(  .7541231E-3*XTIME)  +  1. 0031876 

DPDT3=(-239.0/3.0E7^XTIME)+(3.112E-3) 

QQ=8.316E7*DPDT3*2.0876 

GO  TO  61 

64  PCURVE=(-.2138189E-20^XTIME*^6)-(.2435482E-12*XTIME'^^5)  + 
&    (  .3501095E-9'^XTIME*^4)-(  .1782647E-6^XTIME*^3)  + 

&    ( .3518094E-4*XTIME^XTIME)-( .7541231E-3*XTIME)+1. 0031876 
DPDT4=(-1.430E-10^(XTIME-420.0)'^(XTIME-420.0)^(XTIME-420.0))  + 

(-1.648E-8^(XTIME-420.0)^(XTIME-420.0))+(.0009) 
QQ=8  .  316E7'^DPDT4'^2  .  0876 

61  CONTINUE 

Q=Q0^3. 4134/60. /60. 

65  CONTINUE 
QCORRT 

?RlTg(12)  XTIME,Q 
C 

C  *^*   THIS  ENDS  THE  TEMPORARY  PRESSURE  CORRECTION  IN  THIS  PROGRAM  AREA 
C 

DO  824  N=1,NHSZ 

QD0T(N)=Q/H^^3/NHSW(N)/NHSD(N)/NHSH(N)/DX/DY/DZ 
824  CONTINUE 
C 

C  ^*^   TIME  DURATION  BETWEEN  PRINTOUTS 
C 

NTRWR=NTREAL/NWRITE*NWRITE 

NTRWA=NTREAL/NWALT  *NWALT 
C 
C 

C  **^  WALL  CAPACITANCES  ARE  THE  FUNCTION  OF  TEMPERATURE. 
C 

IF(KBOUND.NE.2.AND.KBOUND.NE.3)GO  TO  722 
C 

DO  725  I=2,NIM1 
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DO  725  K=2,NKM1 

CPF  (I,3,K)=ALFAW+BETAW*T(I,NJ,K 
CPRE(I,3,K)=ALFAW+BETAW^T(I,1  ,K 
DO  725  J=l,2 
CPF  (I,J,K)=ALFAW+BETAW*TWF  (I,J,K) 
CPRE  ( I  ,  J  ,  K )  =ALFAW+BETAW'^TWRE  ( I ,  J  ,  K ) 
725  CONTINUE 

DO  724  J=2,NJM1 
DO  724  K=2,NKM1 

CPR  (3,J,K  =ALFAW+BETAW*T(NI,J,K 
CPL  (3,J,K)=ALFAW+BETAW*T(1,  J,K 
DO  724  1=1,2 

CPR  (I,J,K)=ALFAW+BETAW*TWR 
CPL  (I,J,K)=ALFAW+BETAW'^TWL 
724  CONTINUE 


(I,J,K) 


DO  723  I=2,NIM1 

DO  723  J=2,NJM1 

CPT  ( I , J , 3 ) =ALFAW+BETAW*T ( I , J , NK) 

CPB  (I, J,3)=ALFAW+BETAW^T(I,J,1  ) 

DO  723  K=l,2 

CPT  (I,J,K  =ALFAW+BETAW*TWT  (I,J,K; 

CPB  (I,J,K)=ALFAW+BETAW'^TWB  (I,J,K; 
723  CONTINUE 
722  CONTINUE 
C 

C  ***  CALL  CALVIS  TO  CALCULATE  TURBULENT  VISCOSITY 
C 
C  $$$$$S$$$$$$$$$$$S$$$$SS$$$$$53S 

IF(NTREAL.LE.51)G0  TO  4020 
C  $$$$$$$$$SS$$$$$$$$$$S$$$$$$$$$$ 
C 

C 

CALL  CALVIS 
C 

Q  ■k-k-k-k-k-ki^-k-k-k-k-k'k-k-kyr-k-k-k-k-k-JrTryr-k-k-k-k-k 

c 

4020  CONTINUE 
C 

C  **^   CALL  SURRAD  SUBROUNTINE  TO  CALCULATE  RADIATIVE  FLUX  EVERY 
C      "NRAD"  TIME  STEPS 
C 

IF(KB0UND.NE.3.AND.KB0UND.NE.4)G0  TO  1237 
C 

C  $$$$$$$$$$$$$$$$$$$$s$$$$$$$$$ 

C     IF(XTIME.LE.2.)G0  TO  1237 
C  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C 

IF(NTREAL.NE.NTREAL/NRAD*NRAD)GO  TO  1237 
C 

DO  8  N=1,NHSZ 

LZ=MZ+N 

IB=IHSB(N) 

IE=I3+NHSW(N)-1 

JB=JHSB(N) 

JE=JB+NHSD(N)-1 

KB=KHSB(N) 

KE=KB+NHSH(N)-1 

D=0. 

SUM=0 . 

DO  680  I=IB,IE 

DO  680  J=JB,JE 

DO  680  K=KB,KE 

SUM=SUM+T (I,J,K)*T(I,J,K)*T(I,J,K)^T(I,J,K) 

D=D+1. 
680  CONTINUE 

T4Z0N(LZ)=SUM/D 
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WRITE (6, 9)  N,T4Z0N(LZ) 
9  F0RMAT(/,5X, 'HEAT  SOURCE  NUMBER  :',I2, 

&         El 1. 4, 3X, 'AVERAGE  TEMP.  *^4  =',E11.4,/) 
8  CONTINUE 
C 

C 

CALL  SURRAD 
C 

C 

WRITE(6,1238)   RADHS 
1238  FORMAT  (7  OX, '^'^^  RADIOSITY  FROM  ALL  HEAT  SOURCE;  RADHS= '  ,E10  .4) 
1237  CONTINUE 
C 

C     HEAT  INPUT  FOR  FIRE 

C     DEFINE  THE  HEAT  SOURCE 

C 

DO  826  N=1,NH5Z 

QF1(N)=QDOT(N)'^H/(RA*TA*UO*CPAIR) 
826  CONTINUE 
310  CONTINUE 
C 

c 

C  ^**  CALCULATE  THE  WALTAGE  INPUTS  AND  THE  TEMPERATURES  OF  HEAT  ELEMENTS 

C 

C  *^^   START  CALCULATION 

C 

ITERT=1 

KTGP=1 
375  CONTINUE 

ITER=0 

JTERM=0 

JJTERM=0 
C 

C  ***  DEFINE  THE  UPDATED  TPD(I , J ,K) ,R(I , J ,K) ,U, V,W  AND  P 
C 

DO  48  K=1,NK 

DO  48  J=1,NJ 

DO  48  1=1, NI 

tpd(i,j,k  =t(i,j,k' 

rpd{i,j,k)=r(i,j,k 

upd(i,j,k)=u(i,j,k 

VPD(I,J,K)=V  I,J,K 

wpd(i,j,k  =w(i, j,k 

ppd(i,j,k)=p(i,j,k; 
48  continue 
c  289  continue 
29  continue 

jterm=jterm+1 

C 

C 

CALL  CALT(QD0T,QF1) 

c 

Q    kkk     kkkkkkkkkkk-k-kkk-kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkkkkkkk-k 

IF(NTREAL.GT.IOO)  GO  TO  372 

DO  373  1=1, NI 

DO  373  J=1,NJ 

DO  373  K=1,NK 

IF(T(I, J,K) .LT.l.)  T(I,J,K)=1. 
373  CONTINUE 
37  2  CONTINUE 
C 

C     AAAA=-1.*BU0Y*UGRT*Z(1) 
C      DO  2010  J=1,NJ 
C     DO  2010  1=1, NI 
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C     R(I,J,1)=EXP(AAAA)/T(I,J,1) 

C2010  CONTINUE 

C 

C 

C  ***  GLOBLE  PRESSURE  CORRECTION  FOR  ENCLOSED  TANK  AIR 
C 

SUMT=0 . 

SUMPT=0. 

SUMPET=0 . 

DO  370  I=2,NIM1 

DO  370  J=2,HJ:I1 

DO  370  K=2,NKM1 

SUMT=SUMT+1./T(I,J,K) 

SUMPT=SUMPT+P (I,J,K)/T(I,J,K) 

SUMPET=SUMPET+REQ(K)'^(1./TINIT-1./T(I,J,K)) 

370  CONTINUE 

SUMPET=SUMPET/UGRT 
PCORR= ( SUMPET-SUMPT ) /SUNT 
PCORRP=PCORR 
PCORRN=PCORR 
WRITE(6,289)  PCORR 
289   FORMAT! 5X, 'PCORR  =',1PE11.4/) 
C 

DO  371  I=2,NIN1 
DO  371  J=2,NJM1 
DO  371  K=2,NKH1 
P(I,J,K)=P(I,J,K) +PCORRN 

371  CONTINUE 

PCORRT=PCORRP+PCORR 
C 

C  ***  END  OF  GLOBLE  PRESSURE  CORRECTION 
C 

C 

TOTM=0 . 
C 

DO  2000  K=2,NKM1 

AAAA=BUOY*UGRT^Z(K) 

DO  2000  I=1,NIM1 

DO  2000  J=1,NJM1 

IF(T(I,J,K).LT.l.)   T(I,J,K)=1. 

R(I,J,K)=(UGRT^P(I,J,K)+(1./EXP(AAAA)))/T(I,J,K) 

T0TM=T0TM+R(I, J,K)  " 
2000  CONTINUE 

TOTM=TOTM*VOL'^H*H*H*RA 

ERRl=(TOTHS-TOTM)/TOTnS'^100. 
C   ***  ERROR  IN  TOTAL  MASS  DURING  THIS  TIME  STEP 
C 

301  ITER=ITER+1 

CALL  CALUV 
CALL  CALW 
CALL  CALP 

Q     -k-k-k     kkkkkkkkkkk-k-kk-k-k-k-k-k-k-k-kkk-k-kk-k-kk-k-k-k-k-k-k-k-kkk-k-kkk-k-kkk-k-k-k-kk^kkkkkk-k-k 

C     IF(RESORH.LE.0.05)  GO  TO  304 
C     WRITE (6, 3)  ITER,RESORM,RSMP 
C      IF(RESORH.LE.0.5)  GO  TO  304 

3  FORMAT ( SOX, ' ITER= ' ,I2,2X, 'RE50RM=' ,F8.5,1X, ' SORSUM= ' ,F8.5, 
&  2X, 'ERRM  =',£11.4,'%') 
C     IF(ITER.GT.4)G0  TO  304 
C     IF(ITER.GE.2)gO  to  306 
C     IF(ITER.EQ.3   go  to  307 
C     IF(ITER.GE.2)  go  to  306 

c 

C      RES1=RES0RM 

C     go  to  301 

C  306  IF(RES0RM.GT.RES1)G0  TO  307 

C     GO  TO  301 
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C  304  CONTINUE 

IF(RESORM(ITER) .LE.SORMAX)  GO  TO  49 
IF(ITER.EQ.l)  GO  TO  302 
ITERM1=ITER-1 

IF(RESORM(ITER) .LE.RESORM(ITERMl))  GO  TO  302 
GO  TO  304 
302  IF(JTERM.GE.2)  GO  TO  37 
SOURCE=RESORM(ITER) 
GO  TO  39 

37  IF(RESORM(ITER) .LE. SOURCE)  GO  TO  38 

GO  TO  304 

38  SOURCE=RESORM(ITER) 

39  CONTINUE 

DO  23  K=1,NK 
DO  23  J=1,NJ 
DO  23  1=1, NI 
TPD(I,J,K)=T(I, J,k; 
RPD(I,J,K)=R(I, J,K 
UPD(I,J,K  =U(I,J,K 
VPD(I,J,K  =V(I,J,K 
WPD  I, J,K  =W(I,J,K 

PPD(I, j,k)=p(i,j,k: 

23  CONTINUE 

JJTERM=0 

IF(ITER.EO.ITMAX)  GO  TO  49 

IF(JTERM.EQ.2)  GO  TO  35 

IF(ITER.EQ.4)  GO  TO  29 
35  CONTINUE 

IF(JTERM.EQ.3)  GO  TO  58 

IF(ITER.EQ.7)  GO  TO  29 
58  CONTINUE 

JJTERM=0 

WRITE(6,3)  ITER,RES0RM(ITER) ,S0RSUM,ERR1 

GO  TO  301 
304  CONTINUE 

JJTERM=JJTERM+1 

IF(JTERM.EQ.l)  GO  TO  41 

IF(JTERM.EQ.2.AND.JJTERM.EQ.1.AND.ITER.NE.5)  GO  TO  41 

GO  TO  82 
41   CONTINUE 

IF(ITER.EQ.ITMAX)  GO  TO  '49 

GO  TO  49 
82  CONTINUE 

DO  43  K=1,NK 

DO  43  J=1,NJ 

DO  43  1=1, NI 


T( 

;i,j,k; 

l=TPD( 

:i,j,K) 

R( 

I,J,K 

i=RPD( 

I,J,K 

U< 

I,J,K 

l=UPD( 

I,J,K) 

V< 

I,J,K 

)=VPD( 

I,J,K 

P( 

I,J,K 

l=PPD( 

I,J,K 

W< 

:i,j,k: 

l=WPD( 

!l,J,K) 

43  CONTINUE 

IF(ITER.EO.ITMAX)  GO  TO  49 

IF((JTERM:EQ.3.AND.ITER.NE.8)  .OR.  JJTERM.EQ.2)  GO  TO  49 
GO  TO  301 
49  CONTINUE 
C 

IF(ITER.NE.ITMAX)  GO  TO  2435 
WRITE(6,222) 
222  FORMAT (//, IX, 'ITER=ITHAX' ,/) 
2435  CONTINUE 
CC 

CC  *^  THE  FOLLOWING  PRESSURE  TEST  IS  A  TEMPORARY  MEASURE  TO  MODIFY  THE 
CC     HEAT  INPUT  TO  FORCE  THE  CALCULATED  PRESSURE  TO  AGREE  WITH  THE 
CC     EXPERIMENTAL  PRESSURE.   IT  WILL  BE  USED  UNTIL  ACCURATE  HEAT  INPUT 
CC  **  IS  RECEIVED. 
CC 

PSOUTH=P (20,9,16) *C0NST1+REQ ( 16 ) 
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PERROR=(PCURVE-PSOUTH)/PCURVE 
QCORR=1.0+PERROR-(PSOUTH-PM1)/PCURVE 
CC    QCORR=1.0+PERROR-(PSOUTH-PM1)/PCURVE+(PSOUTH-PM1)/(PCURVE-PCURM1)* 
CC    &     (PCURVE-PM1)/PCURVE 
QCORRT=OCORRT^QCORR 
PCURM1=PCURVE 
PM1=?S0UTH 
PRINT  ^ 

PRINT  *,     '   PCURVE  PSOUTH  PERROR  QCOR 

&R  QCORRT  Q ' 

PRINT  *,  PCURVE, PSOUTH, PERROR, QCORR, QCORRT, Q 
PRINT  * 
C 

C  ^**   SORSUM  IS  THE  SUM  OF  ERROR  SOURCE   FROM  ALL  OF  THE  CELLS 
C      IN  THE  ENCLOSURE. 
C 

WRITE (6,45)  XTIME , NTREAL , TIME , ITER , RESORM( ITER) , SORSUM , QFl ( 1 ) , 
&    ERRl 
C     WRITE (6,45) XTIME , NTREAL , TIME , ITER , RESORM , RSMP , QFl , ERRl 

45  FORMAT  (IX,  '  TIME=  '  ,  F9  .  3  ,  '  SECS  MX,  '  NTREAL= ',15  ,  IX,  '  TIME=  '  , 
&  F7.3,  IX, 'ITER=M2,1X,  'RESORM='  ,F8.5,1X,  'RSMP='  ,F6.4,2X, 
&  IX,  'QF1='  ,F6.3,1X,  'ERRM='  ,E11.4,  '%'  ,/) 

C 

Q   ,^x:r  TO  PRINT  OUT  THE  FOLLOWING  INFORMATION  IS  OPTIONAL 

C 

C      IF ( NTREAL. NE.NTRWR) GO  TO  661 

C 

C  ***  CALCULATE  THE  MAXIMUM  PECLET  NUMBER 

PEMAX=0 . 

DO  6625  I=2,NIM1 

DO  6625  J=2,NJM1 

DO  6625  K=2,NKM1 

PENU=SORT(U(I/ J,K)*U(I, J,K)+V(I,J,K)*V(I,J,K)+ 
&     WCl,J,K)'^W(I,J,K))  ^UO'^DX^H'^R  ( I ,  J  ,  K)  '^RA^H^UO/  ( 30. 43*VI  SL ) 

IF(PENU.GE.PEMAX)GO  TO  6623 

GO  TO  6625 

6623  PEMAX=PENU 

IPMAX=I 
JPMAX=J 
KPMAX=K 

6625  CONTINUE 

WRITE ( 6 , 6624 ) IPMAX , JPMAX , KPMAX , PEMAX 

6624  FORMAT (/,2X, 'AT  I  =',I3,'  J  =',I3,'  K  =',13, 
&  '   MAXIMUM  PECLET  NUMBER  =',F10.3/) 

WRITE (6,*)  'THE  VELOCITIES  AT  THE  LOCATION  OF  THE  MAXIMUM  PECLET  N 
&UMBER  ARE : ' 

WRITE(6,6626)  U( IPMAX, JPMAX, KPMAX) ,V( IPMAX, JPMAX, KPMAX) , 
&    W(lPMAX, JPMAX, KPMAX) 

6626  F0RMAT(5X, ' U= ' ,F8.4,5X, ' V= ' ,F8.4,5X, ' W= ' ,F8.4,/) 
6666  CONTINUE 

C 

C  ^-^^   PRINT  OUT  THE  VELOCITY  AND  TEMPERATURE  FIELD  IN  THE  TANK 

C 

IF (NTREAL  .NE.  NTREAL/NWRITE^NWRITE)  GO  TO  16 

WRITE(6, ' (//1X,A76) ' )  'TEMPERATURES  AT  THE  LEFT  TC  COLUMN,  THE  FIR 
&E  COLUMN,  AND  THE  RIGHT  TC  COLUMN' 

WRITE(6, ' (/9X,A10,8X,A10,8X,A10/) ' )  '1=  3,  J=  9', '1=11,  J=  9', 
&    ' 1=20,  J=  9' 
DO  501  K=2,NKM1 

TCELSI(3,9,K)=TA/1.8*T(3,9,K)-273.15 
TCELSI(11,9,K)=TA/1.8^T(11,9,K}-273.15 
TCELSI(20,9,K)=TA/1.8^T(20,9,K)-273.15 

WRITE (6, ' (1X,A2,I2,F12.1,F18.1,F18.1) ' )  ' K= ' , K,TCELSI (3 , 9 ,K) , 
&        TCELSI(11,9,K) ,TCELSI(20,9,K) 
501  CONTINUE 

XPN=P  ( 3  ,  9  ,  16 ) '^CONSTl+REQ  ( 16 ) 

XPS=P(20,9,16)*CONST1+REQ(16) 

WRITE  (6, ' (//1X,A15,F7.4,5X,A15,F7.4/) ' )  ' NORTH  PRESSURE= ' ,XPN, 
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&     'SOUTH  PRESSURE=' ,XPS 
16  CONTINUE 
C  661  CONTINUE 
C 

C 

C  ^^*    CALCULATE  THE  ENERGY  LOST  THROUGH(OR  CONSUMED  BY) 

C      1.  THE  TANK   WALLS.         2.  TANK   AIR. 

C 

C 

IF(KBOUND.NE.2.AND.KBOUND.NE.3)GO  TO  22 

WWAL=QCONW  +QRADW 
22  CONTINUE 
C 

C  ***   TANK  AIR 
C 

WAIR=0. 

DO  25  I=2,NIM1 

DO  25  J=2,NJM1 

DO  25  K=2,NKH1 
C      IF(NOD(I,J,K) .GE.11)G0  TO  25 

WAIR=WAIR+ (T ( I , J , K) -TOD ( I , J , K) ) *R ( I , J , K) *VOLDT 
25  CONTINUE 
C 

C  ***  SUM  UP  THE  TOTAL  WALT  AT  THAT  TIME  STEP 
C 

WINS=0. 

DO  827  N=1,NHSZ 

WINS=WINS+QDOT(N) 
827  CONTINUE 
C 

C  **^   THE  ENERGY  CALCULATION 
C 

QSIN=QSIN+WINS*DTIME 
QSWAL=QSWAL-WWAL*DTIME  . 
QSAIR=QSAIR+WAIR'^DTIME 
C 

C  ***  CALCULATE  THE  PERCENTAGE  AND  PRINT  OUT  THE  RESULTS 
C 

IF((NTREAL.NE.NTRWA) .AND. (NTREAL.NE.NTRWR))  GO  TO  1083 
C 

C  ***  WALT  PERCENTAGE 
C 

PAIR=WAIR/WINS*100. 
PWALL=-WWAL/WINS^100 . 
C 

C  ***  ENERGY  PERCENTAGE 
C 

PSAIR=QSAIR/QSIN*100 . 
PSWAL=QSV/AL/QSIN*100  . 
C 

C    ^'^'^ 
C 

IF(NTREAL  .NE.  NWRITE)  GO  TO  17 
WRITE (6 , 1084 )XTIME , WINS ,WAIR 
&  ,WWAL,OCONW  ,QRADW 
1084  FORMAT ( 6X, '***  AT  TIME  =  ',F9.4,'  ***',/, 
&  9X,'THE  WALTAGE  INPUT;  WINS  =  ',E10.4,/, 
&  9X, 'WALTAGE  INTO  AIR;  WAIR  =',E10.4,/, 

&9X,'INT0  THE  WALL;  WWAL  =  '  ,  ElO  .4  ,  2X,  '  BY  CONDUCTION;  QCONV;=  '  ,E10  .4  , 
&  2X,'BY  RADIATION;  QRADW   =',E10.4,//) 
C 

WRITE (6, 2728)  QRADL  ,gCONL  , ORADR , QCONR,QRADRE ,QCONRE , 
&  QRADF  ,QCONF  , QRADB , QCONB , QRADT  ,OCONT 

2728  FORMAT (9X, 'QRADL  :  INTO  LEFT  WALL  BY  RADIATIOM=  ■^,E10.4, 
&  9X,'QC0NL  :  BY  CONDUCTION  =',E10.4,/, 
&  9X,'QRADR  :  INTO  RIGHT  WALL  BY  RADIATION=  ',E10.4,/, 
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&  9X, 'QCONR 
&  9X, 'QREARE 
&  9X, 'QCONRE 
&  9X, 'QRADF 
&  9X, 'OCOMF 
&  9X, 'QRADB 
&  9X, 'QCOMB 
&  9X, 'QRADT 
&  9X, 'QCONT 


BY  CONDUCTION  =  ',E10.4,/, 

INTO  REAR  WALL  BY  RADIATION=  ',E10.4, 

BY  CONDUCTION  =  ',E10.4,/, 

INTO  FRONT  WALL  BY  RADIATION=  ',E10.4, 

BY  CONDUCTION  =  ',E10.4,/, 

INTO  FLOOR  BY  RADIATION=  ',E10.4, 

BY  CONDUCTION  =  ',E10.4,/, 

INTO  TOP   BY  RADIATION=  ',E10.4, 

BY  CONDUCTION  =  ',E10.4,//) 


C 


WRITE (6, 1091 )QSIN,QSAIR,QSWAL 
1091  F0RMAT(9X,  'QSIN  :  TOTAL  ENERGY  INPUT= '  , ElO  .4 , / , 

&  9X,'0SAIR  :  TOTAL  ENERGY  INTO  CAVITY  AIR= ' , E10.4 , / , 
&  9X,'QSWAL  :  TOTAL  ENERGY  INTO  WALLS= ' , ElO .4 , 2X, // ) 


WRITE  (6,1088)  PAIR  ,  PWALL  ,  PSAIR  ,  PSV?AL 
1088  FORMAT (9X, 'PAIR  :  LOSS  INTO  CAVITY  AIR=',F8.3,'  %',/ 
&       9X, 'PWALL:  .  --  -  .  ^  . 

TOTAL  INTO  CAVITY  AIR  =',F8.3,'  %',/ 
TOTAL  INTO  THE  WALLS= ' , F8 . 3 , '  %',//) 


&       9X, 'PSAIR 
&       9X,'PSWAL 


17  CONTINUE 
C 

C  *^^  THE  TOTAL  ENERGY  DISTRIBUTION. 
C 

QQ=WINS 

P0AIR=QSAIR/QQ*100. 
PQWAL=QSWAL/QQ*100 . 
WRITE ( 6 , 1093 ) XTIME , PQAIR , PQWAL , OQ 
1093  FORMAT  ( 6X,  '*'^  AT  TIME  =',F9.3,'  PERCENTAGE  OF  TEST  ENERGY  INPUT  ', 
&  /,9X,'PWAIR  :  INTO  CAVITY  AIR  =',F8.3,'  %',/, 
&  9X, 'PQWAL  :  INTO  THE  WALLS= ' , F8 . 3 , '  %',/, 
&  9X,'QQ     :  TOTAL  ENERGY  INPUT  =  ',E10.4,//) 
C 

1083  CONTINUE 
C 

C  ^**   CALCULATE  THE  AVERAGE  TEMPERATURES  OF  THE  WALLS  AND  PRINT  THEM  OUT 
C 

IF((NTREAL.NE.NTRWA) .AND. (NTREAL.NE.  NTRWR))  GO  TO  662 
STT  =0. 
STB  =0. 
STRE=0. 
STF  =0. 
STR  =0. 
STL  =0. 

DO  663  I=2,NIM1 
DO  663  J=2,NJM1 
STB  =STB  +T(I,J,1) 
C     IF(N0D(I,J,NKM1) .EQ.2)G0  TO  663 
STT  =STT  +T(I,J,NK) 

663  CONTINUE 

DO  664  I=2,NIM1 
DO  664  K=2,NKM1 
STRE=STRE+T(I,1,K) 
C     IF(N0D(I,NJM1,K) .EQ.2)G0  TO  664 
STF  =STF  +T(I,NJ,K) 

664  CONTINUE 

DO  665  J=2,NJM1 
DO  665  K=2,NKM1 
STR  =STR  +T(NI,J,K) 
STL  =STL  +T(1,J,K) 

665  CONTINUE 

AVT  =STT  /CELLT  '^TA-460. 
AVB  =STB  /CELLB  ^TA-460. 
AVRE=STRE/CELLRE*TA-460 . 
AVF  =STF  /CELLF  *TA-460. 
AVR  =STR  /CELLR  *TA-460. 
AVL  =STL  /CELLL  '*^TA-460 . 
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WRITE (6,666) XTIME , AVT, AVB , AVRE , AVF , AVR , AVL 

666  FORMAT  (/,  3X,  "^^'^  AT  TIME  =  ',F9.4,'  ***',/, 2X,'*  THE  AVERAGE  ', 
&   'TEMPEATURE  OF  *',/,6X,'T0P   WALL  =', FIO . 5 , 2X, ' BOTTOM  WALL= ' , 
&  F10.5,/,6X, 'REAR  WALL  = ' , FIG . 5 , 2X, ' FRONT  WALL  =',F10.5, 
&  /,6X, 'RIGHT  WALL='  , FIO. 5, 2X,  'LEFT   WALL  = '  , FIO . 5  , // ) 

662  CONTINUE 

c 

C  ***  RESET  THE  OLD  VALUES 

C 

C  ■>'**-^   ALSO  USED  IN  T4Z0N(LZ) 

C 

DO  305  K=1,NK 

DO  305  J=1,NJ 

DO  305  1=1, NI 

uod(i,j,k)=u(i,j,k; 
vod(i,j,k)=v(i,j,k 

W0D(I,J,K  =W(I,J,K 
T0D(I,J,K  =T(I, J,K 

rod(i,j,k)=r(i,j,k; 

P(I,J,K)=P(I,J,K) 

305  CONTINUE 
C 

C  ^^-^   save  VALUES  FOR  PLOTTING 
C 

IF  (XTIHEI  .LT.  10.)  GO  TO  306 
XTIMEI=0. 
WRITE(IO) 
&         XTIME , TOD , ROD , UOD , VOD , WOD , P , VIS 

306  CONTINUE 

XTIMEI=XTIMEI+DTIME*H/UO 

CC    CALL  TLEFT(IT) 

CC     IF(IT.LE.ITLEFT)  GO  TO  303 

IF(TIMREM(0.)  .LE.  40.)  GO  TO  303 
IF(XTIME.LT.TMAX)GO  TO  300 
C 

303  CONTINUE 
C 

WRITE(9) 
&  TIME , NTREAL , TOD , ROD , UOD , VOD , WOD , P , VIS , XTIMEI 
&,QSIN,QSWAL,QSAIR,PCURH1 ,PM1 ,QCORRT 

&,TWF  ,TWRE,TWR  , TWL  ,TWB  ,TWT   , RLW, RRW, RREW, RFW, RBW, RTW 
&,RADHS,QRADF  ,QRADW  ,QRADB ,QRADL,QRADR,QRADT ,QRADRE 

WRITE(ll) 
&  TIME , NTREAL , TOD , ROD , UOD , VOD , WOD , P , VI S , XTIME I 
& , QS IN , QSWAL , QSAIR , PCURMl , PMl , QCORRT 

&,TWF  ,TWRE,TWR  ,TWL  ,TWB  , TWT   , RLW, RRW, RREW, RFW, RBW, RTW 
&,RADHS,QRADF  ,QRADW  ,QRADB ,QRADL ,QRADR, 6rADT,QRADRE 
9303  CONTINUE 
C 

STOP 

END 

SUBROUTINE  CALT,(QDOT  .  QFl ) 

c 

COMMON  /BLl /BUOY , VISL , VOL , VOLDT , KBOUND ,DTIME , NTREAL , SORSUM , NWRITE 
COMMON  /BL2/  DX, DY , DZ , DXY, DYZ , DZX, XYOZ , YZOX, ZXOY ,XYPZ , YZPX,ZXPY  • 
COMMON  /BL3/  NI , NJ , NK , NIMl , NJMl , NKMl , NIM2 , N JM2 , NKM2 
COMMON/ CONS /XTIME , NT , UO , PRT , TA , 

&  NTMAXO,RA,CF AIR, SIGMA 

COMMON/NE/    U(22,18,18),V(22,18,18),T(22,18,18),R(22,18,18), 

&  P(22,18,18) ,W(22,18,18) , WOD( 22 , 18 , 18) 

C    &  P(22,18,18) ,W(22,18,18) ,W0D(22,18,18) ,N0D(22,18,18) 

C0MM0N/0D/U0D(22,18,18) , VOD (22 , 18 , 18) ,TOD(22 , 18 , 18) . ROD (22 , 18, 13) 
C0MM0N/BL31/TPD(22,18,18) , RPD(22 , 18 , 18) ,UPD(22 , 18 , 18) , 

&   VPD(22,18,18) ,WPD(22,13,18) , PPD(22 , 18 , 18) , RESORM( 20 ) , ITER 
C0MM0N/C0/AP(22,13,18) , AE (22 , 18 , 18) , AW(22 , 18 , 18) , AN(22 , 18 , 18) , 

&  AS(22,18,18),SU(22,18,18),SP(22,18,18),AF(22,18,18),AB(22,18,18) 
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C0MM0N/PP/DU(22,18,18),DV(22,18,18),DW(22,18,18),PP(22,18,18) 

COMMON/BLIO/  Z(30) ,REQ(30) , VIS (22 , 18 , 18) ,HRES (3 ) 

COMMOM/BLl 2/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 

&  , XY0Z2 , YZ0X2 , ZX0Y2 , DYZ04 , DZX04 , DXY04 

COMMON  /BL4/  QCONW  , 

&    QRADF  ,QRADW  , ARFP , ARFS , QRADB , QCOMB ,QRADL ,QCOML ,QRADR,QCOMR, 

&     QRADT,QCOMT,QRADRE,QCONRE 
COMMON/WCAP/TWF  (21 , 2 , 17} , TWRE (21 , 2 , 17) ,TWR  (2,17,17' 

&  TWL  (2,17,17) ,TWB  (21 , 17 , 2 ) ,TWT  (21,17,2' 


&  CPF  (21,3,17),CPRE(21,3,17  ,CPR  (3,17,17 

&  CPL  (3,17,17) ,CPB  (21,17,3) ,CPT  (21,17,3' 

&  , DXW , DYW , DZW , VOLW , ALFAW , BETAW , HCOEF , TINF , 

&  CCOWL , CCOWR , CCOWRE , CCOWF , CCOWB , CCOWT 

COMMON/ RAD /RLW( 17, 17) ,RRW(17,17) ,RREW(21,17) , RFW(21 , 17) ,RBW(21 , 17 ) 
&  ,RTW(21,17) ,RADHS 

C. 

COMMON  /VIEWl /  MI , MJ , MK , MI I , MJ J , MKK , MIH , MIP , MJM , M JP , MKM , MKP , 
&  MI IM , MI IP , M J JM , MJ JP , MKKM , MKKP , NHSZ , LZ , MZ , MZ , 

&  IREGNl , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 

&  MREGNl ,MREGN2 ,MREGN3 ,MREGN4 ,MREGN5 ,MREGN6 .MREGN7 

COMMON  /VIEW2/  MIIZ(9 ) ,MJJZ(9 ) ,MKKZ ( 9 ) , LI (9 ) , LJ (9 ) , LK(9) , 
&  ITHIN(9) , JTHIN(9) ,KTHIN(9) ,AXY(9) ,AYZ(9) ,AZX(9' 

&  IHSB(9) ,JHSB(9) ,KHSB(9) ,NHSW(9) ,NHSD(9) ,NHSH(9 ' 

&  LTYPE(9,6) 

C 

DIMENSION  QDOT(l) ,QF1(1) 
C 

DO  100  I=2,NIM1 

IP1=I+1 

IM1=I-1 

DO  100  J=2,NJM1 

JP1=J+1 

JM1=J-1 

DO  100  K=2,NKM1 

KP1=K+1 

KM1=K-1 
C 

C     IF(NOD(I,J,K) .GE.11)G0  TO  100 
C 

CE=(R(I,J,K)+R(IP1,J,K))*U(IP1,J,K)*DYZ02 

CW=(R(I, J,K)+R(IM1,J,K))*U  I   ,J,K)^DYZ02 

CN= ( R ( I , J , K  +R ( I , JP 1 , K ) ) *V ( I , JP 1 , K ) *DZX02 
'  CS=(R(I,  J,K)+R(I,  JM1,K))^V(I,J   ,K)'^DZX02 

CF=(R  I,J,K  +R  I,J,KP1   '^W(I,J,KP1  *DXY02 

CB= ( R ( I , J , K ) +R ( I , J , KMl ) ) *W ( I , J , K   ) *DXY02 
C 

visce=vis(ipi,j,k; 

viscw=vis(im1,j,k 

viscs=vis(i,jm1,k 

viscn=vis(i,jpi,k; 

viscb=vis(i, j,km1 

viscf=vis(i,j,kp1, 

ae ( i , j , k ) =0 . 5^ (  abs ( ce ) - ce ) +yzpx*vi sce 

aw ( i , j , k ) =0 . 5* (  abs ( cw ) +cw ) +yzpx^vi scw 

an(i,j,k)=0.5*(  abs(cn  -cn  +zxpy^viscn 

as(i,j,k)=0.5^(  abs(cs)+cs)+zxpy*viscs 

af(i,j,k)=0.5'^(  abs(cf)-cf)+xypz*viscf 

ab(i,  j,k)=0.5=^(  abs(cb)+cb)+xypz'^viscb 

C 

SP(I,  J,K)=-R0D(I,J,K)'^V0LDT 

SU(I,  J,K)=  ROD(i,  J,K)'^V0LDT*T0D(I,J,K) 
100  CONTINUE 
C 

C  -^^^    CONSIDER  THE  SOLID  BOUNDARIES  AND  FREE  BOUNDARIES 
C      FOUR  DIFFERENT  CASES  ARE  AVAILABLE 
C 

C  ***   TOP  AND  BOTTOM 
C 

DO  111  I=2,NIM1 
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c 

c 
c 


c 
c 
c 


c 
c 
c 


116 
111 


DO  111  J=2,NJM1 

AF(I,J,NKM1)=0. 
IF(NOD(I, J,NKH1) .NE.  2)  GO  TO  116 

CF= ( R ( I , J , NKMl ) +R (I , J , NK ) ) *W ( I , J , NK ) *DXY02 

IF(CF.GE.O.)  GO  TO  116 

VISF=VISL 

SU  I,J,NKM1)=SU(I,J,NKM1)+(0.5^(ABS(CF)-CF)+XYPZ*VISF)*TOD(I,J,NK) 

SP(I,J,MKM1)=SP(I,J,NKM1)-  0 . 5^(ABS (CF) -CF) -XYPZ^VISF 
AB(I,J,2)=0. 
CONTINUE 

IF(KB0UND.NE.2.AND.KB0UND.NE.3)  GO  TO  301 

DO  304  I=2,NIM1 


304 
301 


DO  304  J=2,NJM1 

SU(I,J,2    )=SU(I,J,2 

SP(I,J,2    )=SP(I,J,2 
IF(N0D(I,J,NKM1) .EQ.  2) 

SU ( I , J , NKHl ) =SU ( I , J , NKMl ) +XYPZ2^VIS 

SP ( I , J , NKMl ) =SP ( I , J , NKMl ) -XYPZ2*VIS 
CONTINUE 
CONTINUE 


+XYPZ2'^VIS 
-XYPZ2*VIS 
GO  TO  304 


I, J, 2      )*T0D(I,J,1    ) 
I, J, 2      ) 


I,J,NKM1)*T0D(I,J, 
I, J, NKMl) 


NK 


***   RIGHT  WALL  AND  LEFT  WALL 


DO  212  J=2,NJM1 
DO  212  K=2,NKM1 
AE(NIM1,J,K)=0. 
AW(2,J,K)=0. 
212  CONTINUE 

IF(KBOUND.NE.3.AND.KBOUND.NE.2)GO  TO  117 
DO  302  J=2,NJM1 
DO  302  K=2,NKM1 

SU(NIM1, J,K)=SU(NIM1,J,K)+YZPX2*VIS(NIM1,J,K)*T0D(NI,J,K 
SP(NIM1,J,k)=SP(NIM1,J,K)-YZPX2*VIS(NIM1,J,K) 
''    '    '   '^  =SU(2,J,K    )+YZPX2*VIS(2,J,K     )*T0D(1,J,K 

i=SP(2,J,K    )-YZPX2'^VIS(2,J,K     ) 


SU  2,J,K 
SP(2,J,K 
302  CONTINUE 
117  CONTINUE 


**^   FRONT  DOOR  WALL  AND  REAR  WALL 

DO  103  K=2,NKM1 

DO  103  I=2,NIM1 

AN(I,NJM1,K)=0. 
IF(N0D(I,NJM1,K  ).NE.  2)  GO  TO  119 

CN=(R(I,NJM1,K  )+R(I,NJ,K))^V(I,NJ,K)'^DXY02 

IF(CN.GE.0.)  GO  TO  119 

VISN=VISL 

SU(I,NJM1,K)=SU(I,NJM1,K)+(0.5*(ABS(CN)-CN)+ZXPY^VISN)*T0D(I,NJ,K) 

SP(I,NJM1,K  )=SP(I,NJM1,K)-  0.5'^(ABS(CN)-CN)-ZXPY*VISN 
119  AS(I,2,K)=0. 
103  CONTINUE 

IF(KB0UND.NE.3.AND.KB0UND.NE.2)G0  to  118 

DO  305  K=2,NKM1 


do  305  I=2,NIM1 
SU(I,2,K   =SU(I,2,K 
SP(I,2,K   )=SP(I,2,K 
IF(N0D(I,NJM1,K  ).EQ.  2' 


2 

2 


K 
K 


)^T0D(I,1,  K   ) 


) 


)+ZXPY2*VIS 
i-ZXPY2^VISi 
GO  TO  305 
SU  ( I  ,  NJMl  ,  K)  =SU(  I  ,  NJMl',  K )  +ZXPY2*VIS  ( I  ,  NJMl ,  K)  *TOD  ( I , NJ  ,  K 
SP ( I , NJMl , K) =SP ( I , NJMl , K) -ZXPY2^VIS ( I , NJMl , K) 
305  CONTINUE 
118  CONTINUE 

^*^   VOLUMETRICAL  HEAT  SOURCE  INPUT 

DO  102  N=1,NHSZ 

IB=IHSB(N) 

IE=IB+NHSW(N)-1 

JB=JHSB(N) 

JE=JB+NHSD(N)-1 
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KB=KHSB(M) 

KE=KB+NHSH(N)-1 

DO  101  I=IB,IE 

DO  101  J=JB,JE  J 

DO  101  K=KB,KE  I 

SU(I,J,K)=SU(I,J,K)+QF1(N)*V0L 

101  CONTINUE 

102  CONTINUE 
C 

C  ^^-^   THE  TEST  BLOCK 
C 

c 

C  ***  THE  CELLS  INSIDE  THE  TEST  BLOCK  AND  HEAT  ELEMENTS  WILL  NOT 

C     BE  CALCULATED.  THE  VALUES  OF  AP  AND  SU  ARE  GIVEN  IN  MAIN  PROGRAM. 

C 

C  ***  ASSEMBLE  THE  COEFICIENTS  AND  SOLVE  THE  EQUATIONS 

C 

,  DO  300  I=2,NIM1 
DO  300  J=2,NJM1 
DO  300  K=2,NKM1 
C     IF(NOD(I,J,K) .GE.11)G0  TO  300 

AP(I,J,K)=AE(I,J,k)+AW(I,J,K)+AN(I,J,K)+AS(I,J,K)+AF(I,J,K)+ 
&  AB(I,J,K)-SP(I,J,K) 

300  CONTINUE 

c 

IF(NTREAL.NE.O.AND.NTREAL.NE.O  )G0  TO  3321 
DO  3322  I=2,NIM1 
WRITE(6, 3323)1 

3323  FORMAT (/,2X, 'I  = ' , 12 , 2X, ' TEMP ' ) 

DO  3322  J=2,NJM1 
WRITE(6,3324)J 

3324  F0RMAT(/,2X, ' J  = ' , 12 , 5X, ' AE ' , 9X, ' AS ' , 9X, ' AW , 9X, ' AN ' , 
&  9X , ' AF ' , 9X , ' AB ' , 9X , ' AP ' , 9X , ' SU ' ) 

DO  3322  K=2,NK 
WRITE(6,3325)K,AE(I,J,K),AS(I,J,K),AW(I,J,K),AN(I,J,K^ 

&  af(i,j,k),ab(i,j.k),ap(i,j,k),su(i,j,k: 

3325  format (2x, ' k= ' , 12 , ix, 8(e11 . 5 , ix) ) 
3322  continue 
3321  continue 

C 

CALL  TRID(2,2,2,NIM1,NJM1,NKM1,T) 
C 

C   *       CALCULATE  THE  TEMPERATURES  AT  SOLID  BOUNDARIES.  * 

C 

GOTO  (70,71,71,72),KBOUND 
C 

C  **-^  FOR  THE  CASE  OF  WALL  CAPACITANCE  CONSIDERED  WITH  RADIATION 

C 

71   CONTINUE 

QCONF  =0. 

QCONRE=0 . 

QCONL  =0. 

QCONR  =0. 

QCONT  =0. 

QCONB  =0. 

QCONW  =0. 
C 

DO  271  I=2,NIM1 

DO  271  K=2,NKM1 

WWF  =VI S  ( I ,  N JMl ,  K )  *  ( TOD  ( I ,  N  J  ,  K )  -T  ( I  .  N JMl ,  K ) )  '*^ZXPY2 

T(I,NJ,K)=TOD(I,NJ,K)-(WWF  +RFW( I , K) ) /CCOWF 

TWF  (I,2,K)=TWF  ( I , 2 , K)+(D2X02* (CPF  (I,2,K)+CPF  ( I , 1 ,K) ) /DYW* 
&   (TWF  (I,1,K)-TWF  (I,2,K))+DZX02^(CPF  (I,2,K)+CPF  ( I , 3 , K) )/DyW* 
&   (T0D(I,NJ,K)-TWF  (I , 2 ,K) ) ) /CCOWF  •  ^ 

TWF  (I,1,K)=TWF  (I,1,K)  +  2.*(DZX02'^(CPF  (I,2,K)+CPF  ( 1 , 1  ,  K)  )/DYW* 
&   (TWF  (I,2,K)-TWF  ( 1 , 1 ,  K) ) -DZX'^(TWF  ( 1 ,  1 ,  K) -TINF)*HCOEF)/CCOWF 

QCONF  =QCONF  +WWF 
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WWRE=VIS ( I , 2 , K ) * (TOD (1,1  ,K)-T(I,2,K)) *ZXPY2 

T(I,1  ,K)=T0D(I,1  ,K)+(DZX02*(TWRE(I,2,K)-TOD(I,  1,K)) 
&   '*^  (CPRE  (1.2  ,  K)+CPRE  ( I  ,  3  ,  K)  )  /DXW-WWRE-RREW(  I ,  K)  )  /CCOWRE 

TWRE  (1,2,  K )  =TWRE  ( 1 ,  2  ,  K.)  +  ( DZX02'^  ( CPRE  ( 1 ,  2  ,  K )  +CPRE  ( 1 , 1 ,  K ) )  /DXW* 
&   (TWRE (1,1 , K) -TWRE ( I , 2 , K) ) +DZX02^ ( CPRE (1,2 , K) +CPRE ( I , 3 , K) ) /DXW* 
&   (T0D(I,1  ,K)-TWRE(I,2,K)))/CC0WRE 

TWRE ( I , 1 , K ) =TWRE (I,1,K)+2.^( DZX02  ^ ( CPRE ( 1 , 2 , K ) +CPRE ( 1 , 1 , K ) ) /DXW* 
&   (TWRE  (1,2  ,  K)  -TWRE  ( 1 , 1 ,  K) )  -DZX'^  (TWRE  (1,1 ,  K)  -TIME) '^HCOEF) /CCOWRE 

QCONRE=QCONRE+WWRE 
271   CONTINUE 

DO  273  J=2,NJM1 

DO  273  K=2   ,NKM1 

WWL  =VIS(2,J,K)'^(T0D(1,J  ,K) -T(2  ,  J  ,  K)  )'^YZPX2 

T(1,J  ,K)=T0D(1,J  ,K)  +  (DYZ02'*=(CPL  (3,J,K)+CPL  (2,J,K)) 
&   /DXW'^(TWL  (2,J,K)-T0D(1,J,K))-WWL  -RLW(  J  .  K)  ) /CCOWL 

TWL  (2,J,K)=TWL  (2  ,  J  ,  K)  + (DYZ02'^(CPL  (2  ,  J  ,K)+CPL  ■  ( 1 ,  J  ,  K)  )/DXW'^ 
&   (TWL  (1,J,K)-TWL  (2,J,K))+DYZ02^(CPL  (2,J,K)+CPL  (3 , J , K) )/DXW* 
&   (T0D(1,J  ,K)-TWL  (2,J,K)))/CC0WL 

TWL  (1,J,K)=TWL  (1,  J,K)+2.'*^(DYZ02'^(CPL  (2,J,K)+CPL  (1 ,  J,  K)  )/DXW* 
&   (TWL  (2,J,K)-TWL  ( 1 , J , K) ) -DYZ^(TWL  (1 , J , K) -TINF)*HCOEF)/CCOWL 
C 

WWR  =VIS(NIM1,J,K)^(T0D(NI,J  , K) -T(NIM1 , J , K) )*YZPX2 

T(NI,J,K)=TOD(NI, J,K)+(DYZ02^(CPR  (3,J,K)+CPR  (2,J,K)) 
&   /DXW^CTWR  (2,J,K)-T0D(NI,J,K))-WWR  -RRW( J ,K) ) /CCOWR 

TWR  (2,J,K)=TWR  (2 , J , K)+(DYZ02^ (CPR  (2,J,K)+CPR  ( 1 , J , K) ) /DXW^ 
&   (TWR  (1,J,K)-TWR  (2,J,K))+DYZ02'^(CPR  (2,J,K)+CPR  (3  ,  J  ,K)  )/DXW* 
&   (TOD(NI,J,K)-TWR  (2  ,  J  ,  K)  )  ) /CC0V;R 

TWR  (1,J,K)=TWR  (1,J,K)+2.*(DYZ02'^(CPR  (2,J,K)+CPR  ( 1  ,  J  ,K)  ) /DXW^ 
&   (TWR  (2,J,K)-TWR  (1 ,  J  ,K) ) -DYZ^(TWR  (1 ,  J  ,K) -TINF)'^HCOEF)/CCOWR 

QCONR  =QCONR  +WWR 

OCONL  =QCONL  +WWL 

273  CONTINUE 

DO  274  J=2,NJM1 

DO  274  1=2   ,NIM1 

WWT  =VI S ( I , J , NKMl ) * ( TOD ( I , J , NK ) -T ( I , J , NKMl ) ) *XYPZ2 

T(I,J,NK)=T0D(I,J,NK)+(DXY02*(CPT  (I,J,3)+CPT  (I, J, 2)) 
&   /DZW'^(TWT  (I,J,2)-T0D(I,J,NK))-WWT  -RTW(I ,  J)  ) /CCOWT 

TWT  (I,J,2)=TWT  (I,J,2)+(DXY02^(CPT  (I,J,2)+CPT  (I , J , 1 ) ) /DZW* 
&   (TWT  (I,J,1)-TWT  (I,J,2)  +DZX02^(CPT  (I,J,2)+CPT  ( I , J,3) )/DZW* 
&   (TOD(I,J.NK)-TWT  (I , J, 2) ) )/CCOWT 

TWT  (I,J,1)=TWT  (I,J,1)  +  2.*(DXY02*(CPT  (I,J,2)+CPT  (I ,  J  ,  1 )  )/DZW'^ 
&   (TWT  (I,J,2)-TWT  (I, J,1))-DXY*(TWT  (I , J , 1 ) -TINF)*HCOEF)/CCOWT 

QCONT  =QCONT  +WWT 
C 

WWB  =VIS(I,J,2)*(T0D(I,J,1)-T(I,  J,  2))'^XYPZ2 

T(I,J,1  )=T0D(I,J,1  )  +  (DXY02'^(CPB  (I,J,3)+CPB  (I, J, 2)) 
&   /DZW*(TWB  (I,J,2)-T0D(I,J,1  ))-WWB  -RBW(I , J) ) /CCOWB 

TWB  (I,J,2)=TWB  (I,J,2)+(DXY02*(CPB  (I,J,2)+CPB  ( I , J , 1 ) )/DZW* 
&   (TWB  (I,J,1)-TWB  (I,J,2))+DXY02*(CPB  (I,J,2)+CPB  (I ,  J  ,  3)  )/DZW'^ 
&   (T(I,J  ,1)-TWB  (I,J,2)))/CC0WB 

TWB  (I,J,1)=TWB  (I,J,1)+2.*(DXY02*(CPB  (I,J,2)+CPB  ( I , J , 1 ) ) /DZW* 
&   (TWB  (I,J,2)-TWB  (I,J,1))-DXY^(TWB(I,J,1)-TINF)'^HC0EF)/CC0WB 

QCONB  =QCONB  +WWB 

274  CONTINUE 

QCONW  =QCONB+QCONR+QCONT+QCONL+QCONRE+QCONF 

C 

C  ^-^-^   FOR  THE  CASE  OF  INSULATED  WALLS 
C 

70  CONTINUE 

DO  74  I=2,NIM1 

DO  74  J=2,NJM1 

T(I,J  1)=T(I,J,2) 
C      IF(N0D(I,J,NKM1) .EQ.  2)  GO  TO  74 

T(I,J,NK)=T(I,J,NKM1) 
74  CONTINUE 

DO  80  J=2,NJM1 

DO  80  K=2,NKM1 
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T  1,J,K)=T(2,J,K) 

T(NI,J,K)=T(NIM1,J,K) 
80  CONTINUE 

DO  76  K=2,NKH1 

DO  76  I=2,NIM1 

T(I,1.K)=T(I,2,K) 
C     IF(N0D(I,NJM1,K) .EQ.  2)  GO  TO  76 

T(I,NJ,K)=T(I,NJH1,K) 
76  CONTINUE 

GO  TO  73 
C 

C  ***  FOR  THE  CASE  OF  THE  RADIATION  WITH  THE  INSULATED  WALLS, 
C     NOT  AVAILABEL  YET. 
C 

72  CONTINUE 
C 

C  **^  FOR  THE  FREE  BOUNDARY 
C 

73  CONTINUE 
C 

RETURN 

END 

SUBROUTINE  SURRAD 


c 


c 


COMMON  /BLl /BUOY , VISL , VOL , VOLDT , KBOUND , DTIME , NTREAL , SORSUM , NWRITE 

COMMON  /BL2/  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 

COMMON  / BL3/  NI , N J , NK , NIMl , NJMl , NKMl , NIM2 , NJM2 , NKM2 

COMMON  /BL4/  QCONW  , 
&    QRADF  ,ORADW  , ARFP , ARFS , QRADB , QCONB ,QRADL ,QCONL ,QRADR, QCONR, 
&    QRADT,QCONT,QRADRE,OCONRE 

COMMON/NE/    U(22,18,18),V(22,18,18),T(22,18,18),R(22,18,18), 
&  P(22,13,18) ,W(22,18,18) , WOD (22 , 18 , 18) 

&  P(22,18,18) , W(22, 18, 18) , WOD (22, 18, 18), NOD (22, 18, 18) 

COMMON/RAD/RLW(17,17) ,RRW(17,17) ,RREW(21,17) ,RFW(21,17) ,RBW(21,17) 
&  ,RTW(21,17) .RADHS 

COMMON/ VF/VFMXC( 67, 67) ,T4ZON(67) ,TZON(67) ,RZ0N(67) ,AR(67) 
&  , AREA (67) , VIEW (67, 67) ,COMSRA 

COMMON  /VIEWl /  MI , M J , MK , Mil , MJ J , MKK , MIM , MIP , MJM , MJP , MKM , MKP , 
&  MI IM , MI IP , MJ JM , MJ JP , MKKM , MKKP , NHSZ , LZ , NZ , MZ , 

&  IREGNl , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 

&  MREGNl , MREGN2 , MREGN3 , MREGN4 , MREGN5 , MREGN6 . MREGN7 

COMMON  /VIEW2/  MHZ  (9  )  ,MJJZ  (9  )  ,  MKKZ(9  )  ,  LI  (9  )  ,LJ(9  )  ,LK(9  )  , 
&  ITHIN(9) , JTHIN(9) ,KTHIN(9) ,AXY(9) , AYZ(9 ) , AZX(9' 

&  IHSB ( 9 ) , JHSB ( 9 ) , KHSB ( 9 ) , NHSW ( 9 ) , NHSD ( 9 ) , NHSH ( 9 ; 

&  LTYPE(9,6) 


#  OF  CELL  IN  EACH  OF  THE  SURFACE  ZONE 
PHYSICAL  AREA  OF  EACH  SURFACE  ZONE  ^  H*H 
AVERAGE  TEMPERATURE  OF  THE  SURFACE  ZONE 
AVERAGE  TEMPERATURE^*4  OF  THE  SURFACE  ZONE 
SIGMA  OF  VIEW  FACTOR  MATRIX  COEFF.  *  T'^*4 


C  ***  AREAO 

C  ***  AR() 

C  ^-^-^   TZON() 

C  **^  T4Z0N() 

C  ^^^   RZON() 

C  ^^^   RLW  ,  RRW, 

C      RREW,  RFW, 

C      RBW  ,  RTW  ;  RZONO  FOR  EACH  CELL  WITHIN  ITS  SURFACE  ZONE 

C  ***  RADHS   ;  RADIOSITY  OF  EACH  HEAT  SOURCE 

C  ***  QRADW   ;  TOTAL  RADIATIVE  HEAT  FROM  ALL  INTERIOR  WALLS 

C 

C  ^**  SURFACE  RADIATION  CONSTANTS,  WHICH  WILL  BE  INCLUDED  INTO  VIEW 

C      FACTOR  CALCULATION  IN  ORDER  TO  SAVE  CPU  TIME 

C 

C 

C 

DO  401  1=1, NZ 

RZON  (I)=0. 
401  CONTINUE 

RADHS=0. 
C 
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C   ***   LEFT   AMD   RIGHT   WALLS 

C 

N1=MREGM1+1 

N2=MREGN2+1 

JJJ=1 

DO  131  JJ=1,MJ 

J1=JJJ+1 

J2=JJJ+LJ(JJ) 

KKK=1 

DO  121  KK=1,MK 

SUM1=0. 

SUM2=0 . 

K1=KKK+1 

K2=KKK+LK(KK) 

DO  132  J=J1,J2 

DO  132  K=K1,K2 

SUM1  =  SUM1+T   1,J,K)*T(  1,J,K)'^T(  1,J,K)'^T(  1,J,K) 

SUM2=SUM2+T(NI,J,K)'^T(NI,J,K)*T(NI,J,K)'^T(NI,J,K) 

132  CONTINUE 

T4Z0N(N1)=SUM1/AREA(N1) 

T4Z0N(N2)=SUM2/AREA(N2) 

KKK=K2 

N1=N1+1 

N2=N2+1 
121  CONTINUE 

JJJ=J2 
131  CONTINUE 
C 
C 

C  ^**  REAR  AND  FRONT  WALLS 

Q     7*:  tV  X  A /*:  >^:  X  X  A  7*;  A  K  :^  X  7*;  7C  X  7*;  7":  x  X  A  x  A  7^:  5^ 

c 

N3=MREGN3+1 

N4=MREGN4+1 

111  =  1 

DO  133  11=1, MI 

11=111+1 

I2=III+LI(II) 

KKK=1 

DO  123  KK=1,MK 

SUM1=0. 

SUM2=0 . 

K1=KKK+1 

K2=KKK+LK(KK) 

DO  134  1=11,12 

DO  134  K=K1,K2 

SUM1=SUM1+T(I,  1,K)*T(I,  1,K)*T(I,  1,K)*T(I,  1,K) 

SUM2=SUM2+T ( I , NJ , K) *T ( I , N J , K) *T ( I , NJ , K ) *T ( I , N J , K) 
134  CONTINUE 

T4Z0N(N3)=SUM1/AREA(N3) 

T4Z0N(N4)=SUN2/AREA(N4) 

KKK=K2 

N3=N3+1 

-  N4=N4+1 

123  CONTINUE 

111=12 

133  CONTINUE 
C 

c 

Q    -k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-K-k-k-k^k-k-k^-k 

C  -^^^   ROTTOM  AND  TOP  WALLS 

Q    -kkkkkkkk-kkkkkk-k-kki^kkk-kikk-kk 

C 

N5=MREGN5+1 

N6=MREGN6+1 

111=1 

DO  135  11=1, MI 
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11=111+1 

I2=III+LI(II) 

JJJ=1 

DO  125  JJ=1,MJ 

SUM1=0. 

SUM2=0 . 

J1=JJJ+1 

J2=JJJ+LJ(JJ) 

DO  136  1=11,12 

DO  136  J=J1,J2 

SUM1=SUM1+T(I,J,  1)*T(I,J,  1)*T(I,J,  1)*T(I,J,  1 

SUM2=SUM2+T  ( I ,  J  ,  NK )  *T  ( I ,  J  ,  NK )  '^T  ( I ,  J  ,  NK )  *T  ( I ,  J  ,  MK 1 
136  CONTINUE 

T4Z0N(N5)=SUM1/AREA(N5) 

T4Z0N(N6)=SUM2/AREA(N6) 

JJJ=J2 

N5=N5+1 

N6=N6+1 
125  CONTINUE 

111=12 
135  CONTINUE- 
C 
C 

C 

DO  85  1=1, MZ 

85  CONTINUE 
C 

SRZON=0 . 
DO  88  1=1, NZ 
DO  88  J=1,NZ 

RZON(I)=RZON(I)+  T4Z0N(J)*VFMXC(I,J) 
88  CONTINUE 

DO  86  1=1, NZ 
SRZON=SRZON+RZON ( I ) 

86  CONTINUE 
C 

QRADB=0. 

QRADRE=0. 

QRADF  =0. 

QRADR  =0. 

QRADL  =0. 

QRADT  =0. 

DO  111  I=1,MREGN2 

QRADL=QRADL+RZON ( I ) 

111  CONTINUE 

DO  112  I=MREGN2+1,MREGN3 
QRADR=QRADR+RZON ( I ) 

112  CONTINUE 

DO  113  I=MREGN3+1,NREGN4 
ORADRE=ORADRE+RZON( I ) 

113  CONTINUE"" 

DO  114  I=MREGN4+1,MREGN5 
QRADF  =QRADF  +RZON(I) 

114  CONTINUE 

DO  115  I=MREGN5+1,MREGN6 
QRADB  =QRADB  +RZON(I) 

115  CONTINUE 

DO  116  I=MREGN6+1,MREGN7 
QRADT  =QRADT  +RZON(I) 

116  CONTINUE 

QRADW  =QRADB+QRADT+QRADRE+QRADL+QRADR+QRADF 
C 

DO  786  1=1, MZ 
RZON  ( I )  =RZON  { I )  / AREA.(  I ) 
786  CONTINUE 
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CC    WRITE(6,143)  Nl ,N2 ,N3 ,N4 ,N5 ,N6 

CC143  F0RMAT(5X,  'Nl  =M3,3X,'N2  =',I3,3X,'N3  =M3,3X,'N4  =',13, 3X, 

CC   &  'N5  =M3,3X,'N6  =  '  ,  13  , // ,  5X,  '  TZOM(  I )  ,  1  =  1  ,NZ  '  ,  /  ) 

C 

CC  CALL  WRITE1(TZ0M,1,NZ) 

C 

CC    WRITE (6, 144)  SRZON 

CC144  FORMAT ( 5X, 'SRZOM  = ' , ElO . 2 , // , 5X, ' RZON( I ) , 1=1 ,NZ ' , / ) 

C 

CC     CALL  WRITE1(RZ0N,1,NZ) 

C 

WRITE (6,145)  QRADL , QRADR , QRADRE , QRADF , QRADB , QRADT , QRADW 
145  FORMAT (5X, 'QRADL  = ' , Ell . 4 , / , 5X, ' QRADR  =^,E11.4,/, 

&  5X, 'QRADRE=' ,E11.4,/,5X, 'QRADF  =',E11.4,/, 

&  5X, 'QRADB  =' ,E11.4,/,5X, 'QRADT  =',E11.4,/, 

&  5X, 'QRADW  =' ,E11.4,//) 
C 

C  *^*  LEFT  AND  RIGHT  WALLS 

c 

N1=MREGN1+1 

N2=MREGN2+1 

JJJ=1 

DO  137  JJ=1,MJ 

J1=JJJ+1 

J2=JJJ+LJ(JJ) 

KKK=1 

DO  127  KK=1,MK 

K1=KKK 

K2=KKK+LK(KK) 

DO  138  J=J1,J2 

DO  138  K=K1,K2 

RLW(J,K)=RZ0N(N1' 

RRW(J,K)=RZ0N(N2; 

138  CONTINUE 

N1=N1+1 
N2=N2+1 
KKK=K2 
127  CONTINUE 

JJJ=J2 
137  CONTINUE 
C 
C 

C  ***  REAR  AND  FRONT  WALLS 

c 

N3=MREGN3+1 

N4=MREGN4+1 

111  =  1 

DO  139  11=1, MI 

11=111+1 

I2=III+LI(II) 

KKK=1 

DO  129  KK=1,MK 

K1=KKK+1 

K2=KKK+LK(KK) 

DO  140  1=11,12 

DO  140  K=K1,K2 

RREW(I,K)=RZ0N(N3 

RFW  (I,K)=RZ0N(N4 
140  CONTINUE 

KKK=K2 

N3=N3+1 

N4=N4+1 
129  CONTINUE 

111  =  12 

139  CONTINUE 
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c 
c 

C   ***   BOTTOM   AND   TOP   WALLS 

c 

N5=MREGN5+1 

N6=MREGM&+1 

111  =  1 

DO  141  11=1, MI 

11=111+1 

I2=III+LI(II) 

JJJ=1 

DO  128  JJ=1,MJ 

J1=JJJ+1 

J2=JJJ+LJ(JJ) 

DO  142  1=11,12 

DO  142  J=J1,J2  • 

RBW(I,J  =RZ0N(N5) 

RTW(I, J)=RZ0N(N6) 
142  CONTINUE 

JJJ=J2 

N5=N5+1 

N6=N6+1 
128  CONTINUE 

111  =  12 
141  CONTINUE 
C 
C 

RADHS=0 . 

DO  23  N=1,NHSZ 

LZ=MZ+N 

WRITE (6, 24)  N,  RZON(LZ) 
24  FORMAT (/,5X, 'HEAT  SOURCE  NUMBER  : ' , 12 , 5X, ' RZON(LZ)  =',E11.4,/) 

RADHS=RADHS+RZON(LZ) 
23  CONTINUE 
C 

WRITE (6, 99)  RADKS,SRZON 
99  FORMAT ( 2 X, 'RADHS;  TOTAL  RADIOSITY  = ' ,E11 .4, 2X, ' SRZON  =',E11.4,/) 
C 

C  ***  PRINT  OUT  WALL  ZONE  RADIATIVE  FLUX 
C 

CC    IF(NTREAL.NE.NWRITE)  GO  TO  11 
CC    WRITE (6, 151) 

CC151  F0RMAT(5X, ' ((RLW(J,K) ,K=1,NK) ,J=1,NJ) ' ,//) 
CC    CALL  WRITE2(RLW,NI,1,NJ,1,NK) 
C 

CC    WRITE(6,152) 

CC152  F0RMAT(5X, ' ( (RRW( J,K) ,K=1 ,NK) , J=l ,NJ) ' ,//) 
CC    CALL  WRITE2(RRW,NI,1,NJ,1,NK) 
C 

CC    WRITE(6,153) 

CC153  F0RMAT(5X, ' ((RREW(I,K) ,K=1 ,NK) , 1=1 ,NI ) ' ,//) 
CC     CALL  V/RITE2(RREW,NI,1,NI,1,NK) 
C 

CC    WRITE(6,154) 

CC154  F0RMAT(5X, ' ((RFW(I,K) ,K=1,NK) ,I=1,NI) ' ,//) 
CC    CALL  WRITE2(RFW,NI,1,NI,1,NJ) 
C 

CC    WRITE(6,155) 

CC155  F0RMAT(5X, ' ((RBW(I,J) ,J=1,NJ),I=1,NI) ' ,//) 
CC     CALL  WRITE2(RBW,NI,1,NI,1,NJ) 
C 

CC    WRITE(6,156) 

CC156  FORMAT (5X, ' ((RTW(I,J) , J=l ,NJ) , 1=1 ,NI ) ' , // ) 
CC     CALL  WRITE2(RTW,NI,1,NI,1,NJ) 
C 

CC  11  CONTINUE 
C 
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RETURN 

END 

SUBROUTINE  WRITEl (ARRAY, II, 12) 

C 

DIMENSION  ARRAY(l) 
C 

H=I1 
N=I 

2  CONTINUE 

IF(N.GT. 12/10)  GO  TO  3 
WRITE(6,1)  (I,ARRAY(I) ,I=M,M+9) 

1  FORMAT(1X,10(I2,1PE9.2, ' ,  ')) 
M=M+10 

N=N+1 
GO  TO  2 

3  CONTINUE 

WRITE (6,1)  (I,ARRAY(I),I=M,I2) 

RETURN 

END 

SUBROUTINE  WRITE2 (DUNHY,MN, II , 12, Jl , J2) 

C 

D IMENS I ON  DUMMY ( MN , 1 ) 
C 

M=l 

K=J1 

MK=J2/10 

DO  1  1=11,12 

WRITE (6,  2)  I 

2  FORMAT (5X, 'I  =M2,2X,'J  =',/) 

4  CONTINUE 

IF(M.GT.MK)  GO  TO  5 

WRITE(6,3)  (J,DUMMY(I,J) , J=K,K+9) 

3  FORMAT(1X,10(I2,1PE9.2, ' ,  ')) 
K=K+10 

M=M+1 
GO  TO  4 

5  CONTINUE 

WRITE(6,3)  (J,DUMMY(I,J),J=K,J2) 
M=l 
K=J1 
1  CONTINUE 
RETURN 
END 
SUBROUTINE  VIEWMX 

c 

COMMON  /BLl /BUOY, VISL, VOL, VOLDT,KBOUND,DTIME,NTREAL,SORSUM,NWRITE 
COMMON  /BL2/  DX,DY,DZ, DXY,DYZ , DZX, XYOZ,YZOX, ZXOY, XYPZ, YZPX,ZXPY 
COMMON/CONS/XTIME , NT , UO , PRT , TA , 
&  NTMAXO,RA,CPAIR, SIGMA 

C 

COMMON/ VF/VFMXC ( 67 , 67 ) , EM ( 67 ) , TZON ( 67 ) , RZON ( 67 ) , AR ( 67 ) 
&  , AREA ( 67 ), VIEW (67,67 ) ,CONSRA 

COMMON  /VIEWl/  MI ,MJ,MK,MII ,MJJ,MKK,MIM,MIP,MJM,MJP,MKM,MKP, 
&  MI IM , MI IP , MJ JM , M J JP , MKKM , MKKP , NHSZ , LZ , NZ , MZ , 

&  IREGNl , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 

&  MREGNl ,MREGN2 ,MREGN3 ,MREGN4 ,HREGN5 ,MREGN6 ,HREGN7 

COMMON  /VIEW2/  HIIZ (9 ) ,MJJZ(9 ) ,MKKZ (9) , LI (9 ) , LJ (9) , LK(9) , 
&  ITHIN ( 9 ) , JTHIN ( 9 ) , KTHIN ( 9 ) , AXY ( 9 ) , AYZ ( 9 ) , AZX ( 9 ) , 

&  IH5B ( 9 ) , JHSB ( 9 ) , KHSB ( 9 ) , NHSW ( 9 ) , NHSD (9 ) , NHSH ( 9 ) , 

&  LTYPE(9,6) 

C 

DIMENSION  VFMXL(67,67) , VFMXR(67 , 67 ) , VFMXIN(67 , 67 ) ,WKAREA(134) 
C 

C  ***  THE  CALCULATION  OF  VIEW  FACTORS  IS  DONE  IN  SEPERATE  COMPUTER  CODE. 
C     THE  DATA  IS  READ  IN  THE  BEGINNING  OF  THIS  CODE  FROM  THE  TAPE  OR 
C     DISK.  HERE  THE  SURFACE  RADIATION  MATRIXES  ARE  SET  UP. 
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c 

C  **'^  EMISSIVITY  FOR  THE  SURFACES 

C 

C  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

DO  10  N=1,NHSZ 

LZ=MZ+M 

EM(LZ)=0.81 
10  CONTINUE 

DO  3  1=1, MZ 

EH(I)=0.84 
3  CONTINUE 
C  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C 

C  ***  CALCULATE  THE  COEFICIENTS  OF  THE  MATRIX  FOR  THE  SYSTEM  OF  SURFACE 
C     RADIATIVE  FLUX  EQUATIONS 
C     THE  STRUCTURE  OF  MATRIX  IS 

C     J=LW,RW,REW,FW,BW,TW,TB     TOTAL  IS  NZ  TERM 
C   I=LW 

C    RW  THE  ARRAY  IS  LAID  OUT  AS  FOLLOWS 

C    REW         LW(1,1) (1,2),.. (1,5), (2,1) (2, 2).. (2, 5), (3,1).. (3, 5) 
C    FW 
C    BW 
C    TW 
C    HS 


C 


c 
c 


DO  2  1=1, NZ 

DO  2  J=1,NZ 

VFMXL(I,J)=(EM(J)-1.)*VIEW(I,J)/EM(J)/AR(J) 

VFMXR(I,J)  =  -VIEW(I,J)'^SIGMA 
2  CONTINUE 

DO  1  1=1, NZ 

VFMXL  (I,.I)  =  (1.-VIEW(I,I)*(1.-EM(I)))/(AR(I)*EM(I)) 

VFMXR (1,1) =S IGMA^ (1. -VIEW (I, I)) 
1  CONTINUE 

NN=NZ 

MM=NZ 

IA=NZ 

IAIN=NZ 

IDGT=3 

CALL  LINV1F(VFMXL,IA/NN.VFMXIN.IDGT.WKAREA.IER) 


Q     i^^k^k■^i<^ki^y^■k■k7r■k7<:7K:k7^;:kyr■k7r7r7^:k■k7^7<:k7<:A:k■k■k7^7^■k■K 

C 

DO  3011  1=1, NZ 

DO  3011  J=1,NZ 

VFMXC(I,J)=0. 

DO  3011  K=1,NZ 

VFMXC(I,J)=VFMXC(I,J)+VFMXIN(I,K)*VFMXR(K,J) 
3011  CONTINUE 
C 

C  ^**  NONDIMENSIONIZE  THE  RADIATIVE  MATRIX  COEFICIENTS 
C 

DO  1233  1=1, NZ 

DO  1233  J=1,NZ 

VFMXC ( I , J ) =VFMXC ( I , J ) *CONSRA 
1233  CONTINUE 
C 

C  ^^^   PRINT  OUT  VIEW  FACTOR  MATRIX  COEEFICIENTS 
C 

IF(NTREAL.NE.NWRITE)  GO  TO  12 

WRITE(6,11) 
11  FORMAT (/,5X,  ' (VFMXC (I, J) , J=l ,NZ) , 1  =  1 ,NZ)  '  ,  /  ) 

CALL  WRITE2 ( VFMXC , NZ , 1 , NZ , 1 , NZ ) 


C 
C 


12  CONTINUE 

RETURN 
END 
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SUBROUTINE  CALVIS 

c 

COMMON  /BLl /BUOY ,VISL , VOL , VOLDT , KBOUND , DTIME , NTREAL , SORSUM , NWRITE 

COMMON  /BL2/  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 

COMMON  /BL3/  NI , NJ , NK , NIMl , NJMl , NKMl , NIM2 , NJM2 , NKM2 

COMMON/CONS/XTIME , NT , UO , PRT , TA , 
&  NTMAXO,RA,CPAIR, SIGMA 

COMMON/NE/-   U(22, 18, 18 ) ,V(22, 18,18), T (22, 18,18), R(22, 18,18) , 
&  P(22,18,18),W(22,18,18),WOD(22,18,18) 

C    &  P(22,18,18),W(22,18,18) ,W0D(22,18,18),N0D(22,18,18) 

C0MM0N/BL12/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 
&  , XY0Z2 , YZ0X2 , ZX0Y2 , DYZ04 , DZX04 , DXY04 

COMMON/BLIO/  Z(30) ,REQ(30) , VIS (22 , 18 , 18) ,RRES(3) 

COMMON/BL80/BTURB , ABTURB , CNT , DX2 , DY2 , DZ2 , VISMAX 
&  ,SMPP(22,18,18) ,RI(22,18,18) 

C 

COMMON  /VIEW2/  MIIZ(9) ,MJJZ(9 ) ,MKKZ(9 ) , LI (9 ) , LJ(9) , LK(9) , 
&  ITHIN(9) , JTHIN(9) , KTHIN(9 ) , AXY(9) ,AYZ(9) ,AZX(9) , 

&  IHSB ( 9 ) , JHSB ( 9 ) , KHSB ( 9 ) , NHSW ( 9 ) , NHSD ( 9 ) , NHSH ( 9 ) , 

&  LTYPE(9,6) 

C 

C  ***    CALCULATE  LOCAL  SHEAR  AND  VISCOSITY  VIS (I, J, K) 
C 

C  ***     SPECIFY  LOCAL  TURBULENT  LENGTH  SCALES   SMPP(I,J,K) 
C 

DO  611  1=2, NIMl 

IP1=I+1 

IM1=I-1 
C 

DO  611  J=2,NJM1 
C 

C  ***    CACULATE  DV/DX,D2V/DX2 ,DU/DX,D2U/DX2 ,DW/DX  AND  D2W/DX2 
C 

JM1=J-1 

JP1=J+1 

DO  611  K=2,NKM1 

KM1=K-1 

KP1=K+1 
C 

C     IF(NOD(I,J,K) .GE.11)G0  T0'611 
C 

DVDX=(V(IP1,JP1,K)+V(IP1,J,K)-V(IM1,J,K)-V(IM1,JP1,K))/DX4 

D2VDX2=((V(IP1,JP1,K)+V(IP1,.J,KJ)-2.'^(V(I,JP1,K)+V(I,J,K)) 
&      +(V(IM1,JP1,K)+V(IM1,J,K)))/DX2 

DUDX=(U(IP1,J,K)-U(I, J,K))/DX 

D2UDX2=  (U(I+2,J,K)-U(I,J,K))-(U(IP1,J,K)-U(IM1,J,K)))/DX2 

DWDX=(W  IP1,J,KP1)+W(IP1,J,K)-W(IM1,J,K)-W(IM1,J,KP1))/DX4 

D2WDX2=  (W(IP1,J,KP1)+W(IP1,J,K))-2.'^(W(I,J,KP1)+W(I,J,K)) 
&      +(W(IM1,JP1,K)+W(IM1,J,K)))/DX2 
602  CONTINUE 
C 

C  *'^*    CALCULATE  DU/DY,D2U/DY2  ,DV/DY,D2V/DY2  ,DW/DY  AND  D2W/DY2 
C 

DUDY=(U(I,JP1,K)+U(IP1,JP1,K)-U(IP1,JM1,K)-U(I,JM1,K))/DY4 

D2UDY2=((U(I,JP1,K)+U(IP1,JP1,K))-2.'^(U(I,J,K)+U(IP1,J,K)) 
&      +(U(I,JM1,K)+U(IP1,JM1 .K)))/DY2 

DWDY= ( W ( I , JPl , K) +W ( IPl , JPl , K) -W ( IPl , JMl , K) -W ( I , JMl , K) ) /DY4 

D2WDY2= ( ( W ( I , JPl , K ) +W ( I , JPl , KPl ) ) - 2 . * ( W ( I , J , K ) +W ( I , J , KPl ) ) 
&      + ( W ( I , JMl , K ) +W ( I , JMl , KP 1 ) ) ) / DY2 
C      DRDY=(R(I,JP1,K)-REQ(KP1)-R(I,JM1,K)+RE0(KM1))/DY^.5 

DVDY= ( V ( I , JP 1 , K ) - V ( I , J , K ) ) /DY 

D2VDY2= ( ( V ( I , J+2 , K ) - V ( I , JPl , K ) ) - ( V ( I , J , K ) - V ( I , JMl , K ) ) ) /DY2 
606  CONTINUE 
C 

C  ***     CALCULATE  DU/DZ , D2U/DZ2 ,DV/DZ ,D2V/DZ2 ,DW/DZ  AND  D2W/DZ2 
C 

DUDZ=(U(I,JP1,K)+U(IP1,JP1,K)-U(IP1,JM1,K)-U(I,JM1,K))/DZ4 

D2UDZ2=((U(I,JP1,K)+U(IP1,JP1,K))-2.*(U(I,J,K)+U(IP1,J,K)) 
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&      +(U(I,JM1,K)+U(IP1,JM1,K)))/DZ2 
DVDZ= ( V( I , JPl , K) +V ( I , JPl , KPl ) -V ( I , JMl , KPl ) -V( I , JMl , K) ) /DZ4 
D2VDZ2=((V(I,JP1,K)+V(I,JP1,KP1))-2.*(V(I,J,K)+V(I,J,KP1)) 
&       +(V(I,JM1.K)+V(I,JM1,KP1)))/DZ2 
DRDZ= ( R ( I , J , KPl ) -REQ ( KP 1 ) -R ( I , J , KMl ) +REQ ( KMl ) ) /DZ2 
DWDZ= ( W ( I , J , KP 1 ) - W ( I , J , K ) ) / DZ 

D2WDZ2=((W(I,J,K+2)-W(I,J,KPl))-(W(I,J,K)-W(I,J,KMl)))/DZ2 
C 

C  ***     CALCULATE  RICHARDSON  NUMBER 
C 

STRAIN=DUDY**2+DVDX*'^2+DWDX*'^2+DVDZ'^*2+DWDY**2+DUDZ**2 
DD02  =  SQRT(DUDY*DUDY+DUDX^DUDX+DUDZ*DUDZ+DVDY'^DVDY+DVDX^DVDX+ 
&  DVDZ*DVDZ+DWDX'^DWDX+DWDY^DWDY+DWDZ*DWDZ ) 
IF(DDO2.EQ.0.)GO  TO  600 
C  ^^*  CALCULATE  TURBULENT  LENGTH  SCALE  SMPP(I,J) 

C 

SMP123=SQRT(U(I,J,K)*U(I,J,K)+V(I, J,K)*V(I,J,K)+W(I,J,K)*W(I,J,K)) 
&  /DD02 

SMPP12=DD02  /SORT(D2UDX2'^D2UDX2+D2UDY2*D2UDY2 
&  +D2UDZ2'^D2UDZ2+D2VDX2^D2VDX2+D2VDY2'^D2VDY2+D2VDZ2*D2VDZ2+ 
.&  D2WDZ2'^D2WDZ2+D2WDX2^D2WDX2+D2WDY2^D2WDY2) 
SHPP(I,J,K)  =  CNT'^(SMP123  +  SMPP12)*.5 
RI ( I , J , K ) =-BUOY^DRDZ/ ( R( I , J , K) ^STRAIN) 
ABRIPR=ABTURB+RI(I , J,K)/PRT 
IF(ABRIPR  .LT.  0.)  GO  TO  600 
IF(ABRIPR  .EQ.  0.)  GO  TO  513 
GO  TO  610 
600  VIS(I, J,K)=VISL 

GO  TO  611 
613  VIS(I, J,K)=VISMAX 
GO  TO  611 

610  VIS(I, J,K)=VISL+R(I, J,K)*SNPP(I, J,K)^SMPP(I, J,K)*SQRT(STRAIN)/ 
&  (BTURB^ABRIPR) 

IF(VIS(I,  J,K)  .GT.  VISI-IAX)  VIS  ( I ,  J  ,  K)=VISMAX 

611  CONTINUE 

CC    DO  41  I=IVW,IVE 

CC    DO  41  J=JVS,JVN 

CC    VIS(I,J,NK)=VIS(I,J,NKM1) 

CC  41  CONTINUE 

CC    DO  42  I=IDW,IDE 

CC    DO  42  K=2,KD1 

CC    VIS(I,NJ,K)=VIS(I,NJM1,K) 

CC  42  CONTINUE 

RETURN 

END 

SUBROUTINE  CALUV 

C 

COMMON  /BLl /BUOY , VISL , VOL , VOLDT , KBOUND , DTIME , NTREAL , SORSUM , NWRITE 
COMMON  /BL2/  DX,DY,DZ ,DXY,DYZ ,DZX,XYOZ , YZOX, ZXOY, XYPZ , YZPX,ZXPY 
COMMON  /BL3/  NI ,NJ ,NK,NIM1 ,NJM1 ,NKM1 ,NIM2 ,NJM2 ,NKM2 
COMMON/ CONS/ XT IME , NT , UO , PRT , TA , 

&  NTMAXO,RA,CP AIR, SIGMA 

COMMON/NE/    U( 22, 18, 18), V( 22, 18, 18), T( 22, 18, 18), R( 22, 18, 18), 

&  P(22,18,18) ,W(22,18,18) ,W0D(22,18,18)  ' 

C    &  P(22,18,18) ,W(22,18,18) ,W0D(22,18,1S) ,NOD(22,18,18) 

COMMON/OD/UOD(22,18,18) , VOD(22 , 18 , 18) , TOD (22 , 18 , 18) , ROD (22 , 18 , 18) 
C0MM0N/BL31/TPD(22,18,18) , RPD(22 , 18 , 18) , UPD( 22 , 18 , 18) , 

&  VPD(22,18,18) ,WPD(22,18,18) , PPD(22 , 18 , 18) ,RESORM(20) ,ITER 
COMMON/CO/ AP( 22, 18, 18) , AE (22 , 18 , 18) , AW(22 , 18 , 18) , AN(22 , 18 , 18) , 

&  AS(22,18,18) ,SU(22,18,18) ,SP(22,18,18) ,AF(22,18,18) ,AB(22,18,18) 
C0MM0N/PP/DU(22,18,18) ,DV(22 , 18 , 18) , DW( 22 , 18 , 18) , PP ( 22 , 18 , 18) 
COMMON/BLIO/  Z(30) , REQ (30) , VIS (22 , 18 , 18) ,RRES(3) 
C0MM0N/BL12/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 

&  , XY0Z2 , YZ0X2 , ZX0Y2 , DYZ04 , DZX04 , DXY04 

COMMON  /VIEW2/  MIIZ(9) ,MJJZ(9) ,MKKZ(9) , LI (9 ) , LJ(9) , LK(9 ) , 

&  ITHIN(9) , JTHIN(9) ,KTHIN(9) ,AXY(9) ,AYZ(9) ,AZX(9' 

&  IHSB(9) , JHSB(9) ,KHSB(9) ,NHSW(9) ,NHSD(9) ,NHSH(9 

&  LTYPE(9,6) 
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DO  100  I=3,NIM1 

IP1=I+1 

IM1=I-1 

DO  100  J=2,NJM1 

JP1=J+1 

JH1=J-1 

DO  100  K=2,NKM1 

KP1=K+1 

KM1=K-1 
C     IF(NOD(I,J,K) .GE.11)G0  TO  100 
C      IF(NOD(I,J,K) .EQ.3)G0  TO  1000 
C 

CE=DXY02*R(I,J,K)*(U(I,J,K)+U(IP1, J,K)) 

CW=DYZ02*R(IM1,J,K)^(U(I, J,K)+U(IM1,J,K)) 

CN=DZX04'*^((R(I,J,K)+R(I,JP1,K))     ^V(I   ,JP1,K) 
&  +(R(IM1,J,K)+R(IM1 .JP1,K))*V(IM1,JP1,K)) 

CS=DZX04*((R(I,J,K)+R(I,JM1,K))     ^V(I   ,J,K) 
&  +(R(IM1,J,K)+R(IM1.JM1,K))*V(IM1,J,K)) 

CF=DXY04* ( ( R ( I , J , K ) +R ( I , J , KPl ) )     *W ( I , J , KPl ) 
&  +(R(IM1,J,K)+R(IM1, J,KP1))*W(IM1, J,KP1)) 

CB=DXY04* ( ( R ( I , J , K ) +R ( I , J , KMl ) )     *W ( I , J , K ) 
&  +(R(IM1,J,K)+R(IM1,J,KM1))*W(IM1,J,K)) 

C 

visce=vis(ipi,j,k; 

VISCW=VIS(liMl,J,K 

VISCS=VIS(I,JM1,K 

VISCM=VIS  I, JP1,k' 

VISCB=VIS(I,J,KM1 

VISCF=VIS(I,J,KP1, 

AE ( I , J , K ) =0 . 5^ (  ABS ( CE ) -CE ) +YZOX*VI SCE 

AW  I, J, K) =0.5* (  ABS(CW  +CW HYZOX^VISCW 

AN  I,  J,  K)  =0.5'^  (  ABS(CM  -CN  +ZXOY*VISCM 

AS(I,J,K)=0.5*(  ABS(CS)+CS)+ZXOY*VISCS 

AF(I, J,K)=0.5*(  ABS(CF)-CF)+XYOZ*VISCF 

AH  ( I ,  J  ,  K)  =0  .  5*  (  ABS  ( CB )  +CB )  +XYOZ'*^VISCB 

C 

SP  ( I ,  J  ,  K)  =  -0  .  5=^  ( ROD  ( I ,  J ,  K )  +ROD  ( IMl ,  J  ,  K ) )  *VOLDT 

PX=(P(IM1,J,K)-P(I,  J,K))'^DYZ 

RU=0 . 5* (ROD ( IMl , J , K) +ROD ( I , J , K) ) *UOD ( I , J , K) *VOLDT 

RE=  U0D(IP1,J,K)-U0D(I,J,K  )*VISCE'*=YZOX 

RW=(U0D(I,J,K)-U0D(IM1,J,K))'^VISCW'^YZ0X 

RN=  ( VOD  ( I  ,  JPl ,  K)  -VOD(  IMl ,  JPl ,  K)  )  '^^VISCN^DZ 

RS=(VOD(I,J   ,K)-V0D(IM1,J   ,  K)  J^VISCS'^DZ 

RF= ( WOD ( I , J , KPl  -WOD  IMl , J , KPl )  *VISCF*DY 

RB=(VJ0D(I,J,K   ) -WOD  (IMl,  J,  K   ))*VISCB*DY 

SU( I , J , K)=PX+RU+RE-RW+RN-RS+RF-RB 

C      GO  TO  100 

ClOOO  SU(I,J,K)=0. 

C     AP(I,J,K)=1.E20 

100  CONTINUE 
C 

C  ***  LEFT  AND  RIGHT  WALLS 
C 

DO  101  J=2,NJM1 

DO  101  K=2,NKM1 

AW(3, J,K)=0. 

CW= ( R ( 2 , J , K ) +R ( 3 , J , K ) ) *U ( 3 , J , K ) *DYZ04 

VISW=VIS(2,J,K) 

SP ( 3 , J , K) =SP (3,J,K)-0.5*(  ABS ( CW) +CW ) -YZOX*VISW 

AE(NIM1,J,K)=0. 

CE=(R(NIM1,J,K)+R(NIM2,J,K))*U(NIM1,J,K)*DYZ04 

VISE=VIS(NIM1,J,K) 

SP(NIMl,J,K)=SP(NIMl,J,K)-0.5*(  ABS (CE) -CE) -YZOX^VISE 

101  CONTINUE 
C 

DO  102  I=3,NIM1 
IM1=I-1 
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C   ***   REAR  AMD   FRONT   WALLS 
C 

DO  107  K=2,NKM1 

AS(I,2,K)=0. 

VISS=0.2  5^(2.*VISL+VIS(I,2,K)+VIS(IM1,2,K)) 

SP ( I , 2 , K ) =SP ( I , 2 , K) -ZX0Y2^VISS 

AN(I,NJM1,K)=0. 
C      IF(M0D(I,MJM1,K) .EQ.2)G0  TO  107 

VISN=0.25^(2.*VISL+VI5(I,NJM1,K)+VIS(IM1,NJM1,K)) 

SP  ( I ,  NJMl ,  K )  =SP  ( I ,  NJMl ,  K ) -ZX0y2'^VISN 
107  CONTINUE 
C 

C  **A  TOP  AND  BOTTOM  WALLS 
C 

DO  103  J=2,NJH1 

AB(I,J,2)=0. 

VISB=0.25^(2.*VISL+VIS(I, J,2)+VIS(IM1, J,2)) 

SP(I,J,2)=SP(I,J,2)-XYOZ2*VISB 

AF(I,J,NKM1)=0. 
C     IF(N0D(I,J,NKM1) .EQ.2)  GO  TO  103 

VISF=0  .  25'^  (  2  .  '^VISL+VIS  ( I ,  J  ,NKM1  )+VIS  ( IMl ,  J  ,NKM1 ) ) 

SP  ( I ,  J  ,  NKMl )  =SP  ( I ,  J  ,  NKMl )  -XY0Z2'^VISF 
103  CONTINUE 
102  CONTINUE 
C 

C  ***  THE  TEST  BLOCK 
C 

c 

C  ***  THE  CELLS  WITH  NOD (I, J, K)  =  3 

C     THE  VALUES  OF  SU  AND  AP  ARE  GIVEN  IN  DO  LOOP  100 

C 

C  **'^  ASSEMBLY  THE  COEFICIENTS 

C 

DO  300  K=2,NKM1 

DO  300  J=2,NJM1 

DO  300  I=3,NIM1 
C      IF(NOD(I,J,K) .GE.11.0R.N0D(I,J,K) .EQ.3)G0  TO  300 

AP(I,J,K)=AE(I,J,k)+AW(I,J,K)+AN(I,J,K)+AS(I,J,K)+AF(I,J,K)+ 
&  AB(I,J,K)-SP(I,J,K)   . 

DU(I, J,K)=DYZ/AP(I,J,K) 
300  CONTINUE 
C 

CALL  TRID (3,2,2, NIMl , NJMl , NKMl , U) 
C 

C  A:^*  GIVE  THE  U-VELOCITY  IN  THE  VENT  AND  DOOR  GAP 
C 
C 

CCC    SUBROUTINE  CALV 

c 

DO  150  1=2, NIMl 

IM1=I-1 

IP1=I+1 

DO  150  J=3,NJM1 

JM1=J-1 

JP1=J+1 

DO  150  K=2,NKM1 

KM1=K-1 

KP1=K+1 
C     IF(J. EQ.NJ. AND. NOD(I, NJMl, K) .NE.2)G0  TO  1050 
C      IF(NOD(I,J,K) .GE.11)G0  TO  150 
C     IF(N0D(I,J,K) .EQ.4)G0  TO  1050 
C 

CE=((R(I,J,K)+R(IP1,J,K))*U(IP1,J,K) 
&        + ( R ( I , JMl , K ) +R ( IP 1 , JMl , K ) ) ^U ( IPl , JMl , K) ) *DYZ04 

cw=((r(i,j,k)+r(imi,j,k))-u(i,j,k) 

&        +(R(I,JM1,K)+R(IM1,JM1,K))*U(I   ,JM1,K))*DYZ04 
IF(J.EQ.NJ)GO  TO  1060 
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1060 
1070 


CN=R(I,J,K)*(V(I,  J,K)+V(I,JP1,K))   '*^DZX02 

GO  TO  1070 
CN=R  (I,J,K)*V(I,J,K)  '^DZX 
CONTINUE 

CS=R(I,JM1,K)^(V(I,J,K)+V(I,JM1,K))*DZX02 

CF=((R(I,J,K)+R(I, J,KPl))n;(I, J,KP1) 
&        + ( R ( I , JMl , K ) +R ( I , JHl , KP 1 ) ) ^W ( I , JMl , KPl ) ) *DXY04 

CB=((R(I,J,K)+R(I,J,KHi))^W(I,J,K) 
&        +(R(I,JM1,K)+R(I,JM1,KH1))*W(I,JM1,K   ))'^DXY04 


1080 
1090 


C 
C1050 

c 

150 

c 

C 


151 
C 
C  *** 

c 


VISCE=VISi 

VISCW=VIS 

VISCS=VISi 

VISCN=VISi 

VISCB=VISi 

VISCF=VIS 


AE 
AW 
AN 
AS 

AF 


IP1,J,K 
IM1,J,K 
I,JM1,K 
I,JP1,K 
I,J,KM1 
I, J, KPl 
0.5=^(  ABS 


■■0 

=0.5^ 

=0.5* 


J,K)=0.5*( 
AB(I,J,K)=0.5* 


ABS 
ABS 
ABS 
ABS 
ABS 


'ce)-ce)+yzox*visce 
'cw)+cw)+yzox*viscw 
'cn)-cn)+zxoy*viscn 
'cs)+cs)+zxoy*viscs 
cf)-cf)+xyoz*viscf 
cb)+cb)+xyoz*viscb 


*VOD(I,J,K)*VOLDT 

'^VISCE^DZ 
'^VISCW^DZ 


SP(I,J,K)  =  -0.5'*^(ROD(I,J,K)+ROD(I,JH1,K))  *VOLDT 

PY=  ( P  ( I  ,  JMl  ,  K)  -P  ( I ,  J  ,  K )  )  '^DZX 

RU=0 . 5  * ( ROD ( I , J , K ) +ROD ( I , JMl , K 

RE= (UOD ( IPl , J , K) -UOD ( IPl , JMl , K 

RV?=(UOD(I   ,J,K)-UOD(I   ,JM1,K 

IF(J.E0.NJ)G0  to  1080 

RN=(VOD (I , JPl , K) -VOD ( I , J , K) ) *VISCN*ZXOY 

GO  TO  1090 
RN=0  . 
CONTINUE 

RS=  ( VOD  ( I ,  J  ,  K)  -VOD  ( I ,  JMl ,  K) )  '^VISCS^ZXOY 

RF=  (WOD  ( I  ,  J  ,  K+1 )  -WOD  I ,  JMl ,  K+1 )  )  ^VISCF'^^DX 

RB=(WOD(I,J,K   ) -WOD  (I,  JMl,  K   ^^^VISCB'^DX 

SU(I, J,K)=PY+RU+RE-RW+RN-RS+RF-RB 
GO  TO  150 
SU(I, J,K)=0. 
AP(I,J,K)=  1.E30 
CONTINUE 

RIGHT  AND  LEFT  WALLS 

DO  151  J=3,NJM1 
JM1=J-1 

DO  151  K=2,NKM1 
AW(2,J,K)=0. 

VISW=0.25*(2.*VISL+VIS(2,J,K)+VIS(2,JM1,K)) 
SP  ( 2  ,  J  ,  K)=SP  ( 2  ,  J  ,  K)  -YZ0X2'^VISW 
AE(NIM1,J,K)=0. 

VISE=0.25'^(2.*VISL+VIS(NIM1,J,K)+VIS(NIM1,JM1,K)) 
SP(NIM1, J,K)=SP(NIM1, J,K)-YZ0X2*VISE 
CONTINUE 

THE  REAR  AND  FRONT  WALLS 

DO  152  I=2,NIM1 

DO  152  K=2,NKM1 

AS(I,3,K)=0. 

CS=R(I,2,K)*V(I,3,K)*DZX02 

VISS=VIS(I,2,K) 

SP(I,3,K)=SP(I,3,K)-0.5*(  ABS(CS)+CS)-ZXOY*VISS 
IF(N0D(I,NJM1,K) .EQ.2)G0  TO  170 

AN(I,NJM1,K)=0. 

CN=R  ( I ,  NJMl ,  K )  '^V  ( I ,  NJMl ,  K)  *DZX02 

VISN=VIS(I,NJM1,K) 

SP(I,NJMl,K)=SP(I,NJMl,K)-0.5*(  ABS (CN) -CN) -ZXOY*VISN 
GO  TO  152 
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C    170   AM(I,NJ,K)=0. 

152  CONTINUE 
C 

C  **-^   THE  TOP  AMD  BOTTOM  WALLS 
C 

DO  153  I=2,NIM1 

DO  153  J=3,NJM1 

JM1=J-1 

AB(I,J,2)=0. 

VISB=0 .25^(2, *VISL+VIS ( I , J , 2 ) +VIS ( I , JMl , 2 ) ) 

AP(I,J,2)=AP(I, J,2)-XYOZ2*VISB 

AF(I,J,NKM1)=0. 
C      IF(NOD(I, J,NKH1) .EQ.2)G0  TO  171 

VISF=0  .  25^ ( 2  .  '^VISL+VIS  ( I.J, NKMl )  +VIS  ( I ,  JMl  ,NKM1 ) ) 

SP  ( I ,  J  ,  NKMl  )=SP  ( I ,  J  ,  NKMl )  -XY0Z2'^VISF 
C     GO  TO  153 
C  171  AF(I,J,NK)=0. 

153  CONTINUE 
C 

C  ***  FOR  THE  TEST  BLOCK 
C 

c 

C  *^*  THE  CELLS  WITH  NOD (I, J, K)  =  4 

C      THE  VALUES  OF  SU  AND  AP  ARE  GIVEN  IN  DO  LOOP  105 

C  ^^-^   THE  CELLS  INSIDE  THE  DOOR  WALL 

C     THE  VALUES  OF  SU  AND  AP  ARE  GIVEN  IN  DO  LOOP  105 

C  ^**   ASSEMBLY  THE  COEFICIENTS 

C 

DO  350  K=2,NKM1 

DO  350  J=3,HJM1 

DO  350  I=2,NIM1 
C     IF(NOD(I,  J,K)  .GE.11.0R.N0D(I,  J,-K)  .EQ.4)G0  TO  350 

AP ( I , J , K ) =AE ( I , J , K ) + AW ( I , J , K ) +AN ( I , J , K ) +AS ( I , J , K ) +AF ( I , J , K ) + 
&  AB(I,J,K)-SP(l,J,K) 

DV(I,J,K)=DZX/AP(I,J,K) 
350  CONTINUE 
C 

CALL  TRID(2,3,2,NIM1,NJM1,NKM1,V) 
C 

C  *^*   GIVE  V-VELOCITY  IN  THE  VENT  AND  DOOR  GAP 
C 

RETURN 

END 

SUBROUTINE  CALW 

C 

COMMON  /BLl /BUOY , VI SL , VOL , VOLDT , KBOUND , DTIME , NTREAL , SORSUM , NWRITE 
COMMON  / BL2/  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 
COMMON  /BL3/  NI ,NJ ,NK,NIM1 ,N JMl , NKMl ,NIM2 ,NJM2 ,NKM2 
COMMON/CONS/XTIME , NT , UO , PRT , TA , 

&  NTMAXO,RA,CPAIR, SIGMA 

COMMON/BLIO/  Z(30) ,REQ(30) , VIS (22 , 18 , 18) ,RRES(3) 
COMMON/NE/    U(22, 18, 18) ,V(22, 18,18) ,T (22, 18,18) ,R(22, 18,18) , 

&  P( 22, 18, 18), W (22, 18, 18) , WOD( 22 , 18 , 18) 

C    &        '  P(22,18,18) ,W(22,18,18) ,WOD(22,18,18) ,N0D(22,18,18) 

C0MM0N/0D/U0D(22,18,18) , VOD(22 , 18 , 18 ) , TOD (22 , IS , 18) , ROD (22 , 18 , 18) 
COMMON/BL31/TPD(22,18,18) , RPD ( 22 , 18 , 18) , UPD(22 , 18 , 18) , 

&  VPD(22,18,18) ,WPD(22,18,18) ,PPD(22,18,18) ,RESORM(20) , ITER 
COMMON/CO/AP(22,18,18) , AE (22 , 18 , 18) , AW(22 , 18 , 18) , AN(22 , 18 , 18) , 

&  AS(22,18,18) ,SU(22,18,18) ,SP(22,13,18) ,AF(22,18,18) ,AB(22,18,18) 
COMMON/PP/DU(22,18,18) , DV( 22 , 18 , 18) , DW(22 , 18 , 18) ,PP(22 , 18 , 18) 
C0MM0N/BL12/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 

&  , XY0Z2 , YZ0X2 , ZX0Y2 , DYZ04 , DZX04 , DXY04 

COMMON  /VIEW2/  MIIZ(9) ,MJJZ(9) ,MKKZ( 9) , LI (9) , LJ (9) , LK(9 ) , 

&  ITHIN(9) , JTHIN(9) ,KTHIN(9) ,AXY(9) ,AYZ(9) ,AZX(9' 

&  IHSB(9) , JHSB(9) ,KHSB(9) ,NHSW(9) ,NHSD(9) ,NHSH(9' 

&  LTYPE(9,6) 

C 

DO  100  I=2,NIM1 
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iMi=r-i 
ipi=i+i 

DO  100  J=2,NJM1 

JM1=J-1 

JP1=J+1 

DO  100  K=3,NKM1 

KM1=K-1 

KP1=K+1 
C      IF(NOD(I, J,K) .GE.11)G0  TO  100 

C      IF(K.EQ.NK.AND.N0D(I,J,NKM1) .NE.2)G0  TO  1000 
C      IF(MOD(I, J,K) .EQ.5)G0  TO  1000 
C 

CE=DYZ04'^((R(I,J,K)+R(IP1,J,K))     *U(IP1,J,K) 
&  +(R(I,J,KM1)+R(IP1.  J,KM1))'^U(IP1,J,KM1)) 

CW=DYZ04* ((R(I,J,K)+R(IM1,J,K))     *U(I,J,K) 
&  + ( R ( I , J , KMl ) +R ( IMl . J , KMl ) ) ^U ( i , J , KMl ) ) 

CN=DZX04*((R(I,J,K)+R(I,JP1,K))     ^V(I   ,JP1,K) 
&  +(R(I, J,KH1)+R(I,JP1,KM1))^V(I,JP1,KM1)) 

CS=DZX04*((R(I,J,K)+R(I,JM1,K.))     ^V(I   ,J,K) 
&  +(R(I,J,KM1)+R(I,JM1,KM1))^V(I,J,KM1)) 

IF(K.EQ.NK)GO  TO  130 

CF=DXY02^R(I,J,K   )'^(W(I ,  J  ,  K)+W(I ,  J  ,  KPl ) ) 

GO  TO  131 

130  CF=DXY*R ( I , J , K ) *W ( I , J , K ) 

131  CONTINUE 

CB=DXY02*R(I,J,KN1)*(W(I,J,K)+W(I,J,KM1)) 
C 

visce=vis(ipi,j,k; 

viscw=vis(im1, j,k 

viscs=vis(i,jm1,k 

viscn=vis(i,jp1,k 

viscb=vis(i,j,kh1 

viscf=vis(i,j,kp1, 

ae  ( i ,  j  ,  k )  =0  .  5=*^  (  abs  ( ce )  - ce )  +yzox*vi sce 

aw(i,j,k)=0.5'^(  abs(cw)+cw)+yzox*viscw 

AN(I,J,K)=0.5*(  ABS(CN)-CN)+ZX0Y^VISCM 
AS ( I , J , K  =0 . 5 *  ABS  CS ) +CS  +ZXOY*VI SCS 
AF  I,J,K  =0.5^(  ABS  CF  -CF  +XYOZ^VISCF 
AB(I,J,K)=0.5*(  ABS(CB)+CB)+XYOZ*VISCB 

SP(I,J,K)=-0.5*( ROD ( I , J , K ) +ROD ( I , J , KMl ) ) *VOLDT 

BURQ=-BUOY*0 . 5* ( R ( I , J , K) -REO ( K) +R ( I , J , KMl ) -REQ (KMl ) ) *VOL 

PZ= (P ( I , J , KMl ) -P ( I , J , K) ) ^DXY 

RU=0  .  5^  ( ROD  ( I ,  J ,  KMl )  +ROD  ( I ,  J  ,  K)  )  '^WOD  (I.J  ,  K)  '^VOLDT 

RE=(U0D(IP1,J,K)-U0D(IP1,J,KM1))'^VISCE*DZ 

RW=(U0D(I   ,J,K)-UOD(I   ,J,KM1))*VISCW*DZ 

RN=  ( VOD  ( I ,  JPl ,  K )  -VOD  { I ,  JPl ,  KMl )  )  '*^VISCN=^DX 

RS=(VOD(I,J   ,K)-V0D(I,J   ,KM1))'*^VISCS*DX 

IF(K.EQ.NK)GO  TO  133 

RF=  (WOD  ( I  ,  J  ,  KPl )  -WOD  ( I  ,  J  ,  K)  )  ^VISCF'^XYOZ 

GO  TO  134 

133  RF=XYOZ^WOD(I,J,K)*VISCF 

134  CONTINUE 

RB= ( WOD ( I , J , K) -WOD ( I , J , KMl ) ) *VISCB*XYOZ 

SU(I,J,K)=BURO+PZ+RU+RE-RW+RN-RS+RF-RB 
C      GO  TO  100 
ClOOO  SU(I,J,K  =0. 
C     AP(I,J,K)=  1.E20 

100  CONTINUE 
C 

C  ***  THE  TOP  AND  BOTTOM  WALLS 
C 

DO  101  I=2,NIM1 

DO  101  J=2,NJM1 

AB(I,J,3)=0. 

CB=R (I, J, 2) ^W (I, J, 3) *DXY02 

VISB=VIS(I,J,2) 

SP(I,J,3)=SP(I,J,3)-0.5*(  ABS(CB)+CB)-XYOZ'^VISB 
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C 

c 


C-  IF(N0D(I,J,NKM1) .EQ.2)G0   TO    132 

AF(I, J,NKM1)=0. 

CF=R  ( I ,  J  ,  MKMl ) '^W  ( I ,  J  ,  MKMl )  *DXY02 

VISF=VIS(I,J,NKM1) 

SP(I, J,MKMl)=SP(I,J,MKMl)-0.5*(    ABS (CF) -CF) -XYOZ*VISF 
C  GO   TO    101 

C    132   AF(I,J,MK)=0. 

101  CONTINUE 
C 

C  ^^*   THE  REAR  AND  FRONT  WALLS 
C 

DO  102  I=2,NIM1 

DO  102  K=2,NKM1 

KM1=K-1 

AS(I,2,K)=0. 

VISS=0.25^(2-*VISL+VIS(I,2,K)+VIS(I,2,KM1)) 

SP ( I , 2 , K ) =SP ( I , 2 , K ) -ZX0Y2*VISS 

AN(I,NJM1,K)=0. 
C     IF(N0D(I,NJM1,K) .EQ.2)G0  TO  102 

VISN=0.25'^(2.*VISL+VIS(I  .NJM1,K)+VIS(I,NJM1,KM1)) 

SP(I,NJM1,K)=SP(I,NJM1,K)-ZX0Y2'^VISN 

102  CONTINUE 
C 

C  ^^-^   THE  RIGHT  AND  LEFT  WALLS 
C 

DO  103  J=2,NJM1 

DO  103  K=2,NKM1 

KM1=K-1 

AW(2,J,K)=0. 

VI  SW=0  .  2  5^^  ( 2  .  '^VISL+VI S  (2,J,K)+VIS(2,J,KM1)) 

SP(2,J,K)=SP(2,J,K)-YZOX2^VISW 

AE(NIM1,J,K)=0. 

VISE=0.25^(2.^VISL+VIS(NIM1,J,K)+VIS(NIM1, J,KM1)) 

SP(NIH1,J,K)=SP(NIH1, J,K)-YZ0X2^VISE 

103  CONTINUE 
C 

C  ***  THE  TEST  BLOCK 

C  ■^■^■^   THE  CELLS  WITH  NOD  (I,  J,  K)  =  5 

C     THE  VALUES  OF  SU  AND  AP  ARE  GIVEN  IN  DO  LOOP  100 

C  ***  THE  CELLS  INSIDE  THE  TOP  WALL 

C     THE  VALUES  OF  SU  A^JD  AP  ARE  GIVEN  IN  DO  LOOP  100 

C 

C  ***   ASSEMBLY  THE  COEFICIENTS 

C 

DO  300  I=2,NIM1 

DO  300  J=2,NJM1 

DO  300  K=3,NKN1 
C     IF(NOD(I,J,K) .GE.11.0R.N0D(I,J,K) .EQ.5)G0  TO  300 
C     IF(N0D(I,J,NKM1) .EQ.2.AND.K.EQ.NK)G0  TO  300 

AP ( I , J , K ) =AE ( I , J , K ) + AW ( I , J , k) +AN ( I , J , K ) +AS ( I , J , K ) +AF ( I , J , K ) + 
&  AB(I,J,K)-SP(I, J,K) 

DW(I,J,K)=DXY/AP(I,J,K) 
300  CONTINUE 


C 
C 


CALL  TRID ( 2 , 2 , 3 , NIMl , NJMl , NKMl , W ) 


RETURN 

END 

SUBROUTINE  CALP 

c 

COMMON  /BLl /BUOY , VI SL , VOL , VOLDT , KBOUND , DTIME , NTREAL , SORSUM , NWRITE 
COMMON  /BL2/  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 
COMMON  / BL3/  NI , N J , NK , NIMl , N JMl , NKMl , NIM2 , N JM2 , NKM2 
COMMON/CONS/XTIME , NT , UO , PRT , TA , 
&  NTMAXO,RA,CP AIR, SIGMA 

COMMON/BLIO/  Z(30) ,REQ(30) , VIS ( 22 , 18 , 18) ,RRES(3) 
COMMON/NE/    U(22,18,18),V(22,18,18),T(22,18,18),R(22,18,18), 
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c 

c 


&  P(22,18,18),W(22,18,18),WOD(22,18,18) 

&  P(22,18,18),W(22,18,18),WOD(22,18,18),NOD(22,18,18) 

COMMON/OD/UOD(22,18,18) , VOD(22 , 18 , 18) , TOD (22 , 18 , 18) ,ROD(22 , 18 , 18) 
COMMOM/BL31/TPD(22,18,18),RPD(22,18,18),UPD(22,18,18) , 

&   VPD(22,18,18),WPD(22,18,18) ,PPD(22,18,18),RESORH(20),ITER 
C0MH0N/C0/AP(22,18,1S),AE(22,1S,18),AW(22,18,18) , AN(22 , 18 , 18) , 

&  AS(22,18,18) ,SU(22,18,18) ,SP(22,13,18) ,AF(22,18,18) ,AB(22,18,18) 
C0MM0M/PP/DU(22,18,18) , DV(22 , 18 , 18) , DW( 22 , 18 , 18) , PP (22 , 18 , 18) 
C0MH0N/BL12/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 

&  , XY0Z2 , YZ0X2 , ZX0Y2 , DYZ04 , DZX04 , DXY04 

COMMON  /VIEW2/  MIIZ(9) ,MJJZ(9) ,MKKZ(9 ) ,LI (9 ) , LJ(9) , LK(9) , 

&  ITHIN(9) , JTHIN(9) ,KTHIN(9) ,AXY(9) ,AYZ(9) ,AZX(9' 

&  IHSB(9) , JHSB(9) ,KKSB(9) ,NHSW(9) ,NHSD(9) ,NHSH(9 

&  LTYPE(9,6) 

DO  100  I=2,NIM1 
IM1=I-1 
IP1=I+1 

DO  100  J=2,NJM1 
JP1=J+1 
JM1=J-1 

DO  100  K=2,NKM1 
KP1=K+1 
KH1=K-1 
IF(MOD(I,J,K) .GE.11)G0  TO  100 
IF(I.ME.NIM1)G0  TO  301 
AE(MIM1, J,K)=0. 
CE=0. 
GO  TO  302 

301  CONTINUE 

AE(I,J,K)=(R(I,J,K)+R(IP1,J,K)) *DYZ02^DU ( IP 1 , J , K) 
CE=(R(I,J,K)+R(IP1,J,K))*U(IP1,J,K)'^DYZ02 

302  CONTINUE 

IF(I.NE.2    )G0  TO  303 

AW(2    ,J,K)=0. 

CW=0  . 

GO  TO  304 

303  CONTINUE 

AW(I,J,K)=(R(I,J,K)+R(IM1,J,K))*DYZ02*DU(I   ,J,K) 
CW=(R(I,J,K)+R(IM1,J,K))*U(I   ,J,K)*DYZ02 

304  CONTINUE 

AN(I,J,K)=(R(I,J,K)+R(I,JP1,K))*DZX02*DV(I,JP1,K) 
CN=(R(I, J,K)+R(I, JP1,K))*V(I,JP1,K)*DZX02 
AS(I,J,K)=(R(I,J,K)+R(I,JM1,K))^DZX02^DV(I,J   ,K) 
CS=(R(I,J,K)+R(I,JM1,K))*V(I, J   ,K)*DZX02 
AF(I,J,K)  =  (R(I,J,K)+R(I,J,KP1))  ^DXY02'^DW  ( I ,  J  ,  KP 1 ) 
CF=(R(I,J,K)+R(I,J,KP1))^W(I,J.KP1)*DXY02 
AB  ( I ,  J  ,  K )  =  ( R  ( I  ,  J  ,  K )  +R  ( I ,  J  ,  KMl )  )  '^DXY02'^DW  ( I ,  J  ,  K   ) 
CB=(R(I,J,K)+R(I,>J,KM1))*W(I,J,K   )^DXY02 

SP(I,J,K)=0. 


SU(I,J,K)=(ROD(I,J,K)-R(l,J,K))*VOLDT-CE+CW-CN+CS-CF+CB 

100  CONTINUE 
C 

C  ^-^^   THE  TOP  AND  BOTTOM  WALLS 
C 

DO  101  I=2,NIM1 

DO  101  J=2,NJM1 

AB(I,J,2)=0. 

AF(I,J,NKH1)=0. 
C      IF(N0D(I,J,NKM1) .EQ.2) 
C    &SP  ( I ,  J  ,  NKMl  )=-0.5'^(R(I,J,  NKMl )  +R  ( I ,  J  ,  NK ) )  *DW  ( I ,  J  ,  NKMl )  *DXY 

101  CONTINUE 
C 

C  ^**  THE  REAR  AND  FRONT  WALLS 
C 

DO  102  I=2,NIM1 

DO  102  K=2,NKM1 
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**'^  THE  RIGHT  AND  LEFT  WALLS 
GIVEN  IN  DO  LOOP  100 


AS(I,2,K)=0. 

AN(I,NJN1,K)=0. 
C     IF(N0D(I,NJM1,K) .EQ.2) 
C    &SP  ( I ,  N JHl ,  K )  =  -0  .  5 '^  (R ( I ,  N JMl ,  K )  +R ( I ,  N J  ,  K ) )  *DV  ( I ,  N JMl ,  K)  *DYZ 

102  CONTINUE 
C 
C 

c 
c 

C  ***  THE  TEST  BLOCK 

C7712  CONTINUE 

C 

C  ***   ASSEMBLY  THE  COEFICIENTS 

C 

DO  150  I=2,NIM1 

DO  150  J=2,NJH1 
C     DO  150  K=2,NKN1 
C     IF(NOD(I, J,K) .GE.11)G0  TO  150 

AP ( I , J , K ) =AE ( I , J , K) +AW ( I , J , K ) +AN ( I , J , K ) +AS ( I , J , K ) +AF ( I , J , K ) + 

&  AB(I,J,K)-SP(I,J,K) 

150  CONTINUE 


C 

c 


CALL  TRID ( 2 , 2 , 2 , NIMl , N JMl , NKMl , PP ) 

DO  600  1=3, NIMl 
DO  600  J=2,NJM1 
DO  600  K=2,NKM1 
C     IF(NOD(I,J,K) .GE.11)G0  TO  600 

U(I,J,K)=U(I,J,K)+DU(I,J,K)*(PP(I-1,J,K)-PP(I,J,K)) 

600  CONTINUE 

DO  601  1=2, NIMl 
DO  601  J=3,NJM1 
DO  601  K=2,NKM1 
C     IF(NOD(I,J,K) .GE.11)G0  TO  601 

V(I,J,K)=V(I,J,K)+DV(I,J,K)*(PP(I,J-1,K)-PP(I,J,K)) 

601  CONTINUE 

DO  602  1=2, NIMl  . 
DO  602  J=2,NJM1 
DO  602  K=3,NKM1 
C     IF(NOD(I,J,K) .GE.11)G0  TO  602 

W(I,J,K)=W(I,J,K)+DW(I,J,K)*(PP(I,J,K-1)-PP(I,J,K)) 

602  CONTINUE 

DO  220  1=2, NIMl 

DO  220  J=2,NJM1 

DO  220  K=2,NKM1 
C     IF(NOD(I,J,K) .GE.11)G0  TO  220 

P(I,J,K)=P(I,J,K)+PP(I,J,K) 

PP(I  J,K)=0. 
C     WRITE(6,221)I,J,K,P(I, J,K) 
C221   FORMAT (5X, ' I ' , 14 , ' J ' , 14 , ' K ' , 14 


220  CONTINUE 
***  RESET  THE  VELOCITY  IN 


P' ,E11.4) 


THE  FREE  BOUNDARY 


SORSUM=0. 
RESORM(ITER)=0. 
DO  240  1=2, NIMl 
DO  240  J=2,NJM1 
DO  240  K=2,NKM1 
IF(NOD(I, J,K) .GE.11)G0  TO  240 
IF(I.E0.NIM1)G0  TO  241 

CE=(R(i,J,K)+R(I  +  l,J,K))'^U(I  +  l,J,K)  *DYZ02 
GO  TO  242 


241  CONTINUE 

CE=0. 

242  CONTINUE 

CW=(R(I, J,K)+R(I-1,J,K; 

cn={r(i, j,k)+r(i,j+1,k 
cs=(r(i, j,k)+r(i,j-i,k; 


^U(l  ,J,K)*DYZ02 
^V(I,J+1,K)*DZX02 
^V(I,J   ,K)'*^DZX02 
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CF= ( R ( I , J , K ) +R ( I , J , K+ 1 ) ) *W ( I , J , K+1 ) *DXY02 
CB=  ( R  ( I ,  J  ,  K )  +R  ( I ,  J  ,  K- 1 )  )  ^W  ( I ,  J  ,  K   )  '^DXYOZ 
RESIDU= ( ROD ( I , J , K) -R( I , J , K) ) ^VOLDT-CE+CW-CN+CS-CF+CB 
SORSUH=SORSUM+RESIDU 

RESORH ( ITER )=RESORM( ITER) +ABS(RESIDU) 
240  CONTINUE 
RETURN 
END 
SUBROUTINE  TRID( 1ST, JST, KST, ISP, JSP, KSP.PHI) 

C 

COMMON  /BL3/  NI ,NJ ,NK,NIM1 ,NJM1 ,NKM1 ,NIM2 ,NJM2 ,NKM2 

COMMON/BL31/TPD(22,18,18) , RPD(22 , 18 , 18) , UPD(22 , 18 , 18) , 
&  VPD(22,18,18),WPD(22,18,18),PPD(22,18,18),RESORM(20),ITER 

C0HM0N/C0/AP(22,18,18) , AE (22 , 18 , 13) , AW(22 , 18 , 18) , AN( 22 , 18 , 18) , 
&  AS(22,18,18) ,SU(22,18,18) .SP(22,18,18) ,AF(22,18,18),AB(22,18,18) 

DIMENSION  A(25) ,B(25) ,C(25) ,PHI(22,18,13) 
C 

ISTM1=IST-1 

A  ISTM1)=0. 

C(ISTM1)=0. 

DO  100  J=JST,JSP 

DO  100  K=K5T,KSP 

DO  101  I=IST,ISP 

IF(JSP.EO.NJ  FHI(I,NJ+1,K)=PHI(I,NJ,K) 

IF(KSP.EQ.NK)PHI(I,J,NK+1)=PHI(I,J,NK) 

A(I)=AE(I,J,K) 

B(I  =AW(I,J,K 

C ( I )=AN ( I , J , K) *PHI ( I , J+1 , K) +AS ( I , J , K) ^PHI ( I , J-1 , K) 
&    +AF(I,J,K)^PHI(I,J.K+1)+AB(I,J,K)^PHI(I,J,K-1)+SU(I,J,K) 

TERM=1./(AP(I,J,K)-B(I)*A(I-1)) 

A(I)=A(I)^TERM 

C(I)=(C(I)+B(I)*C(I-1))*TERM 

101  CONTINUE 

PHI(ISP,J,K)=C(ISP) 

ISTA=IST+1 

DO  102  II=ISTA,ISP 

I=IST+ISP-II 

IP1=I+1 

PHI ( I , J , K) =A ( I ) *PHI ( IPl , J , K) +C ( I ) 

102  CONTINUE 
100  CONTINUE 

C 

JSTM1=JST-1 

A(JSTM1)=0. 

C(JSTM1)=0. 

DO  200  K=KST,KSP 

DO  200  I=IST,ISP 

DO  201  J=JST,JSP 

A(J)=AN(I,J,K) 

C ( J ) =AE ( I ! J ! K j  *PHI ( I  +  1 , J , K) +AW ( I , J , K) *PHI ( I - 1 , J , K ) 
&    +AF(I,J,K)*PHI(I,J.K+1)+AB(I, J,K)*PHI(I,J,K-1)+SU(I,J,K) 
TERM=1./(AP(I,J,K)-B(J)'^A(J-1)) 
A(J)=A(J)'^TERM 
C(J)=(C(J)+B(J)*C(J-1))^TERM 

201  CONTINUE 

PHI(I,JSP,K)=C(JSP) 

JSTA=JST+1 

DO  202  JJ=JSTA,JSP 

J=JST+JSP-JJ 

JP1=J+1 

PHI(I,J,K)=A(J)*PHI(I,JP1,K)+C(J) 

202  CONTINUE 
200  CONTINUE 

C 

KSTM1=KST-1 
A(KSTM1)=0. 
C(KSTM1)=0. 
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DO  300  I=IST,ISP 
DO  300  J=JST,JSP 
DO  301  K=KST,KSP 
A  K)=AF(I, J,K) 
B  K  =AB ( I , J , K 

C  K )  =  AE  ( I ,  J  ,  K )  *PHI  ( I  + 1 ,  J  ,  K)  +  AW  ( I ,  J  ,  K  y*PHI  ( I  - 1 ,  J  ,  K) 
&    +AN(I,J,K^*PHI(I,J+1,K)+AS(I,J,K)^PHI(I,J-1,K)+SU(I,J,K) 
TERM=i./(AP(I,J,K)-B(K)'^A(K-l)) 
A(K)=A(K)^TERM 
C(K)  =  (C(K)+B(K)'^C(K-1))*TERM 

301  CONTINUE 

PHI(I,J,KSP)=C(KSP) 

KSTA=KST+1 

DO  302  KK=KSTA,KSP 

K=KST+KSP-KK 

KP1=K+1 

PHI(I,J,K)=A(K)'^PHI(I,J,KP1)+C(K) 

302  CONTINUE 
300  CONTINUE 

C 

C     GO  TO  700 

n     -k-k-k-k-k-k-k-ki^-k-k-kT^-k-k-k 

IF.(IST.LT.O)  GO  TO  700 

Q     kkkkkkkkkkkkkkkk7:kkkkkkkkk 

C 

ISP1=ISP+1 

B(ISP1)=0. 

C(ISP1)=0. 

DO  400  J=JST,JSP 

DO  400  K=KST,KSP 

DO  401  II  =  IST,ISP  - ^ 

I=ISP+IST-II  ~ 

IP1=I+1 

A(I)=AE(I,J,K) 
B  I  =AW  I , J , K ) 

C ( I ) =AN ( I , J , K ) *PHI ( I , J+1 , K) +AS ( I , J , K ) *PHI ( I . J- 1 , K) +AF ( I , J , K ) * 
&     PHI(I,J,K+1)+AB(I.J,K)'^PHI(I,J,K-1)+SU(I,J,K) 
TERM=1./(AP(I,J,K)-A(I)*B(I+1)) 
B(I)=B(I)*TERM 

C(I)=(C(I)+A(I)*C(I+1))*TERM 
401   CONTINUE 

PHI(IST,J,K)=C(IST) 
ISTP1=IST+1 
DO  402  I=ISTP1,ISP 
PHI(I,J,K)=B(I)^PHI(I-1,J,K)+C(I) 
402  CONTINUE 
400  CONTINUE 
C 

JSP1=JSP+1 
B(JSP1)=0. 
C(JSP1)=0. 
DO  500  K=KST,KSP 
DO  500  I=IST,ISP 
DO  501  JJ=JST,JSP 
J=JSP+J5T-JJ 
JP1=J+1 

A(J)=AN(I, J,K) 
B(J)=AS(I, J,K) 

C(J)=AE(I,J,K)'^PHI(I  +  1,J,K)+AW(I,J,K)*PHI(I-1,J,K)+AF(I,J,K)* 
&     PHI(I,J,K+1)+AB(I,J,K)*PHI(I,J,K-1)+SU(I,J,K) 
TERM=1./(AP(I, J,K)-A(J)^B(J+1)) 
B(J)=B(J)^TERM 

C ( J ) = ( C ( J ) +A ( J ) *C ( J+1 ) ) *TERH 
501   CONTINUE 

PHI(I, JST,K)=C(JST) 
JSTP1=JST+1 
DO  502  J=JSTP1,JSP 

PHI(I,J,K)=B(J)'^PHI(I,J-1,K)+C(J) 
502  CONTINUE 
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500  CONTINUE 
C 

KSP1=KSP+1 

B(KSP1)=0. 

C(KSP1)=0. 

DO  600  I=IST,ISP 

DO  600  J=JST,JSP 

DO  601  KK=KST,KSP 

K=KSP+KST-KK 

KP1=K+1 

A(K)=AF(I,J,K) 

B  K  =AB(I, J,K 

C ( K ) =AE ( I , J , K ) *PHI ( I +1 , J , K ) +AW ( I , J , K ) *PHI ( I - 1 , J , K ) +AN ( I , J , K ) * 
&     PHI(I,J+1,K)+AS(I,J,K)*PHI(I,J-1,K)+SU(I,J,K) 

TERM=1./(AP(I,J,K)-A(K)*B(K+1)) 

B(K)=B(K)'^TERM 

C(K)=(C(K)+A(K)*C(K+1))*TERM 
601   CONTINUE 

PHI(I,J,KST)=C(KST) 

KSTP1=KST+1 

DO  602  K=KSTP1,KSP 

PHI(I,J,K)=B(K)'^PHI(I,J,K-1)+C(K) 
602  CONTINUE 
600  CONTINUE 
700  CONTINUE 

RETURN 

END 
C 

BLOCK  DATA 

COMMON/BL80/BTURB , ABTURB , CNT , DX2 , DY2 , DZ2 , VISMAX 
&  ,SMPP(22,18,18) ,RI(22,18,18) 

COMMON/CONS/XTIME , NT , UO , PRT , TA , 
&  NTMAXO,RA,CPAIR, SIGMA 

C 

DATA  BTURB,ABTURB,CNT/1. ,2. , .08/ 
C     DATA  CONDB,KI/.03565,2/ 


C 


DATA  XTIME,NT/0. ,0/ 

DATA  RA , CPAIR , UO , PRT , TA , NTMAXO , SIGMA/ 
&      .0714, .24,1. ,1. ,555.86,0,1.712E-9/ 
END 
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